Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавление цифры к одинаковым данным - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление цифры к одинаковым данным (Формулы/Formulas)
Добавление цифры к одинаковым данным
Sandrous Дата: Пятница, 27.09.2019, 15:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем привет!
Суть проблемы: есть лист, на нем 3 таблицы. Каждая таблица заканчивается словом "Total". Как макросом заменить все "Total" на "Total1","Total2","Total3" для дальнейшего использования.

Количество строк в таблицах постоянно меняется. Разделять на разные листы таблицы нельзя. Подскажите куда копать.

Уважаемые модераторы, перенесите плиз тему в Вопросы по VBA.

Спасибо.
К сообщению приложен файл: 1234.xls(29.5 Kb)


Сообщение отредактировал Sandrous - Пятница, 27.09.2019, 15:39
 
Ответить
СообщениеВсем привет!
Суть проблемы: есть лист, на нем 3 таблицы. Каждая таблица заканчивается словом "Total". Как макросом заменить все "Total" на "Total1","Total2","Total3" для дальнейшего использования.

Количество строк в таблицах постоянно меняется. Разделять на разные листы таблицы нельзя. Подскажите куда копать.

Уважаемые модераторы, перенесите плиз тему в Вопросы по VBA.

Спасибо.

Автор - Sandrous
Дата добавления - 27.09.2019 в 15:27
китин Дата: Пятница, 27.09.2019, 15:38 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5882
Репутация: 914 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Sandrous, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеSandrous, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

Автор - китин
Дата добавления - 27.09.2019 в 15:38
Sandrous Дата: Пятница, 27.09.2019, 15:41 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
китин, файлик приложил.
 
Ответить
Сообщениекитин, файлик приложил.

Автор - Sandrous
Дата добавления - 27.09.2019 в 15:41
Pelena Дата: Пятница, 27.09.2019, 21:45 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 14585
Репутация: 3196 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Может, так подойдёт
[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
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеМожет, так подойдёт
[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
[/vba]

Автор - Pelena
Дата добавления - 27.09.2019 в 21:45
Sandrous Дата: Суббота, 28.09.2019, 21:09 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Может, так подойдёт
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


Спасибо, то что надо!


Сообщение отредактировал Sandrous - Суббота, 28.09.2019, 21:10
 
Ответить
Сообщение
Может, так подойдёт
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


Спасибо, то что надо!

Автор - Sandrous
Дата добавления - 28.09.2019 в 21:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление цифры к одинаковым данным (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!