X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость ( Вход | Регистрация )

Открыть тему
Тема закрыта
> Массовая замена данных в Excel, Нужно заменить буквально несколько строк
Зотов
Зотов
Topic Starter сообщение 23.10.2014, 12:22; Ответить: Зотов
Сообщение #1


Копирайтер, стаж 7 лет
******

Группа: Active User
Сообщений: 1200
Регистрация: 11.4.2012
Из: Краснодарский край
Поблагодарили: 263 раза
Репутация:   32  


Всем привет! Есть у меня файл отчёта, в котором указаны реквизиты для оплаты (для каждого заказа создаётся отдельная папка, куда помещается отчёт). В каждом файле прописан номер банковской карты. Номер карты поменялся, из-за чего нужно поменять этот номер во всех папках. Как это реализовать?


--------------------
0
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Belos
Belos
сообщение 23.10.2014, 12:40; Ответить: Belos
Сообщение #2


Старожил
******

Группа: Active User
Сообщений: 2468
Регистрация: 11.11.2008
Из: Украина
Поблагодарили: 695 раз
Репутация:   96  


попробуйте через тотал

alt+f7 -> поиск + текст -> файлы на панель -> CTRL+A -> CTRL+M -> Поиск и замена.
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Зотов
Зотов
Topic Starter сообщение 23.10.2014, 13:09; Ответить: Зотов
Сообщение #3


Копирайтер, стаж 7 лет
******

Группа: Active User
Сообщений: 1200
Регистрация: 11.4.2012
Из: Краснодарский край
Поблагодарили: 263 раза
Репутация:   32  


Цитата(Belos @ 23.10.2014, 12:40) *
alt+f7 -> поиск + текст -> файлы на панель ->


Вот это сработало, а дальше нет :huh: Итого в 188 файлах нужно заменить номер старой карточки на номер новой.


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Belos
Belos
сообщение 23.10.2014, 14:50; Ответить: Belos
Сообщение #4


Старожил
******

Группа: Active User
Сообщений: 2468
Регистрация: 11.11.2008
Из: Украина
Поблагодарили: 695 раз
Репутация:   96  


ctrl+a - это выделение всех файлов, можете выделить через insert
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Зотов
Зотов
Topic Starter сообщение 23.10.2014, 15:11; Ответить: Зотов
Сообщение #5


Копирайтер, стаж 7 лет
******

Группа: Active User
Сообщений: 1200
Регистрация: 11.4.2012
Из: Краснодарский край
Поблагодарили: 263 раза
Репутация:   32  


Belos, выделение работает. Только причём тут групповое переименование?


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Belos
Belos
сообщение 23.10.2014, 15:20; Ответить: Belos
Сообщение #6


Старожил
******

Группа: Active User
Сообщений: 2468
Регистрация: 11.11.2008
Из: Украина
Поблагодарили: 695 раз
Репутация:   96  


все при том ))

дальше CTRL+M -> Поиск и замена

просто в начале, когда делаете поиск, ставить галку "с текстом", в том поле пишите искомый текст, выделяете все файлы что нашли, при нажатии CTRL+M, появится меню, где будет "поиск и замена"

Сообщение отредактировал Belos - 23.10.2014, 15:25
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Зотов
Зотов
Topic Starter сообщение 23.10.2014, 15:40; Ответить: Зотов
Сообщение #7


Копирайтер, стаж 7 лет
******

Группа: Active User
Сообщений: 1200
Регистрация: 11.4.2012
Из: Краснодарский край
Поблагодарили: 263 раза
Репутация:   32  


Цитата(Belos @ 23.10.2014, 15:20) *
где будет "поиск и замена"


Не работает. Имхо, здесь "поиск и замена" всё-таки к переименованию относится.


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Belos
Belos
сообщение 23.10.2014, 15:46; Ответить: Belos
Сообщение #8


Старожил
******

Группа: Active User
Сообщений: 2468
Регистрация: 11.11.2008
Из: Украина
Поблагодарили: 695 раз
Репутация:   96  


точно. посмотрите что-то из этого powergrep или totalreplacer
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Tollun
Tollun
сообщение 23.10.2014, 19:54; Ответить: Tollun
Сообщение #9


Старожил
******

Группа: Active User
Сообщений: 1595
Регистрация: 1.10.2009
Из: Хабаровск
Поблагодарили: 394 раза
Репутация:   66  


Можно с помощью макроса, но я хз как в под-папки заглянуть
а если всё в заданной папке, то задачу выполнит.

Код
Sub ReplaceText()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
        c = Replace(c, "Что заменить", "На что заменить")
    Next
End Sub

Sub Main()
Dim strDirPath, strMaskSearch, strFileName As String
Dim wb As Workbook

strDirPath = "C:/123/" ' Папка поиска
strMaskSearch = "*.xls*" ' Маска поиска

strFileName = Dir(strDirPath + strMaskSearch)

Do While strFileName <> ""
    
    Set wb = Workbooks.Open(strDirPath + strFileName)

        ReplaceText
  
     wb.Close True
    
    strFileName = Dir
Loop

End Sub


Сообщение отредактировал Tollun - 23.10.2014, 19:57


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Зотов
Зотов
Topic Starter сообщение 23.10.2014, 23:10; Ответить: Зотов
Сообщение #10


Копирайтер, стаж 7 лет
******

Группа: Active User
Сообщений: 1200
Регистрация: 11.4.2012
Из: Краснодарский край
Поблагодарили: 263 раза
Репутация:   32  


Цитата(Tollun @ 23.10.2014, 19:54) *
а если всё в заданной папке, то задачу выполнит.


К сожалению, в подпапках.


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Открыть тему
Тема закрыта
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Спам в разметке структурированных данных
если на сайте НЕТУ структурированных данных
12 tok24ua 1037 2.12.2017, 1:19
автор: genjnat
Открытая тема (нет новых ответов) Продам базу данных фан пейджей Фейсбук. Общая аудитория 31 млрд. пользователей.
0 Tutich 761 15.10.2017, 16:25
автор: Tutich
Открытая тема (нет новых ответов) Продам базу данных групп Фейсбук. Более 10 000 наименований.
База данных групп Фейсбука
4 Tutich 1446 15.10.2017, 16:11
автор: Tutich
Открытая тема (нет новых ответов) Что нужно сделать с сайтом, чтобы не получить штрафы от Роскомнадзора из-за закона о персональных данных
4 jack 1576 14.10.2017, 1:52
автор: vikosy
Открытая тема (нет новых ответов) Нужен парсинг данных
ориганизаций
2 tube 554 16.8.2017, 16:00
автор: SEOMR


 



RSS Текстовая версия Сейчас: 12.12.2017, 16:37
Дизайн