Всем привет! Суть проблемы: есть лист, на нем 3 таблицы. Каждая таблица заканчивается словом "Total". Как макросом заменить все "Total" на "Total1","Total2","Total3" для дальнейшего использования.
Количество строк в таблицах постоянно меняется. Разделять на разные листы таблицы нельзя. Подскажите куда копать.
Уважаемые модераторы, перенесите плиз тему в Вопросы по VBA.
Спасибо.
Всем привет! Суть проблемы: есть лист, на нем 3 таблицы. Каждая таблица заканчивается словом "Total". Как макросом заменить все "Total" на "Total1","Total2","Total3" для дальнейшего использования.
Количество строк в таблицах постоянно меняется. Разделять на разные листы таблицы нельзя. Подскажите куда копать.
Уважаемые модераторы, перенесите плиз тему в Вопросы по VBA.
Sandrous, - Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума
Sandrous, - Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форумакитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Public Sub uuu() Dim rng As Range, n& Set rng = Columns(2).Find(What:="Total", LookAt:=xlWhole) Do While Not rng Is Nothing n = n + 1 rng.Value = rng.Value & n Set rng = Columns(2).Find(What:="Total", After:=rng, LookAt:=xlWhole) Loop End Sub
[/vba]
Может, так подойдёт [vba]
Код
Public Sub uuu() Dim rng As Range, n& Set rng = Columns(2).Find(What:="Total", LookAt:=xlWhole) Do While Not rng Is Nothing n = n + 1 rng.Value = rng.Value & n Set rng = Columns(2).Find(What:="Total", After:=rng, LookAt:=xlWhole) Loop End Sub
Может, так подойдёт Public Sub uuu() Dim rng As Range, n& Set rng = Columns(2).Find(What:="Total", LookAt:=xlWhole) Do While Not rng Is Nothing n = n + 1 rng.Value = rng.Value & n Set rng = Columns(2).Find(What:="Total", After:=rng, LookAt:=xlWhole) Loop End Sub
Может, так подойдёт Public Sub uuu() Dim rng As Range, n& Set rng = Columns(2).Find(What:="Total", LookAt:=xlWhole) Do While Not rng Is Nothing n = n + 1 rng.Value = rng.Value & n Set rng = Columns(2).Find(What:="Total", After:=rng, LookAt:=xlWhole) Loop End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
