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

Вход

Регистрация

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

 

= Мир MS Excel/Добавление числа в название столбца - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление числа в название столбца (Макросы/Sub)
Добавление числа в название столбца
Artem2292 Дата: Четверг, 22.10.2020, 13:15 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010, 2019, 365
Добрый день!
Нужна Ваша помощь: имеется таблица (выгрузка с системы) с различными столбцами, можно ли как-то через макрос в названия столбцов добавить числа, т.е. должно быть так "1 Название столбца".
пример во вложении
заранее спасибо!
К сообщению приложен файл: 7192216.xlsx(9.6 Kb)
 
Ответить
СообщениеДобрый день!
Нужна Ваша помощь: имеется таблица (выгрузка с системы) с различными столбцами, можно ли как-то через макрос в названия столбцов добавить числа, т.е. должно быть так "1 Название столбца".
пример во вложении
заранее спасибо!

Автор - Artem2292
Дата добавления - 22.10.2020 в 13:15
NikitaDvorets Дата: Четверг, 22.10.2020, 15:41 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 8 ±
Замечаний: 0% ±

Excel 2019
Добрый день!
Макрос не нужен, решение во вложении.
К сообщению приложен файл: 7192216-.xlsx(11.9 Kb)


Сообщение отредактировал NikitaDvorets - Четверг, 22.10.2020, 15:41
 
Ответить
СообщениеДобрый день!
Макрос не нужен, решение во вложении.

Автор - NikitaDvorets
Дата добавления - 22.10.2020 в 15:41
Artem2292 Дата: Четверг, 22.10.2020, 16:49 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010, 2019, 365
Цитата NikitaDvorets, 22.10.2020 в 15:41, в сообщении № 2 ()
Добрый день!
Макрос не нужен, решение во вложении.

за это спасибо, но дело в том, что каждый раз из системы выгружается таблица с разным количеством столбцов и их может быть, например 20 или 50. И нужный мне столбец, под номером 1 сегодня может быть в начале таблице, завтра где-то в середине, а послезавтра и вовсе в конце. Хотелось бы это все оптимизировать через макрос, т.к. следующий этап это выполнение сортировки столбцов по возрастанию (для этого и добавляю цифры к названиям) и выгрузка через макрос в другой рабочий файл. 2 последних этапа полностью работают, осталось разобраться с первым
 
Ответить
Сообщение
Цитата NikitaDvorets, 22.10.2020 в 15:41, в сообщении № 2 ()
Добрый день!
Макрос не нужен, решение во вложении.

за это спасибо, но дело в том, что каждый раз из системы выгружается таблица с разным количеством столбцов и их может быть, например 20 или 50. И нужный мне столбец, под номером 1 сегодня может быть в начале таблице, завтра где-то в середине, а послезавтра и вовсе в конце. Хотелось бы это все оптимизировать через макрос, т.к. следующий этап это выполнение сортировки столбцов по возрастанию (для этого и добавляю цифры к названиям) и выгрузка через макрос в другой рабочий файл. 2 последних этапа полностью работают, осталось разобраться с первым

Автор - Artem2292
Дата добавления - 22.10.2020 в 16:49
nilem Дата: Четверг, 22.10.2020, 18:02 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1587
Репутация: 548 ±
Замечаний: 0% ±

Excel 2013, 2016
Artem2292, привет
типа такого?:
[vba]
Код
Sub ttt()
Dim i&
With Range("A1").CurrentRegion
    With .Rows(2)    'строка заголовков
        For i = 1 To .Cells.Count
            .Cells(1, i).Value = i & " " & .Cells(1, i).Value
        Next i
    End With
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеArtem2292, привет
типа такого?:
[vba]
Код
Sub ttt()
Dim i&
With Range("A1").CurrentRegion
    With .Rows(2)    'строка заголовков
        For i = 1 To .Cells.Count
            .Cells(1, i).Value = i & " " & .Cells(1, i).Value
        Next i
    End With
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 22.10.2020 в 18:02
Hugo Дата: Четверг, 22.10.2020, 19:18 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3131
Репутация: 670 ±
Замечаний: 0% ±

2010, теперь уже с PQ
Это очевидно в продолжение темы
http://www.excelworld.ru/forum/10-45975-1
Значит нужен макрос поиска списка названия по строке, изменение каждого найденного определённым образом.
Можно cделать 5 штук Find. С заменой.
По списку соответствий.
Или заполнить сперва словарь, затем в цикле по строке заменить значения, если есть в словаре.
Да как угодно...

С другой стороны - если основную задачу решать в PQ, то и не нужно это всё...


excel@nxt.ru
webmoney: R418926282008 Z422237915069


Сообщение отредактировал Hugo - Четверг, 22.10.2020, 19:23
 
Ответить
СообщениеЭто очевидно в продолжение темы
http://www.excelworld.ru/forum/10-45975-1
Значит нужен макрос поиска списка названия по строке, изменение каждого найденного определённым образом.
Можно cделать 5 штук Find. С заменой.
По списку соответствий.
Или заполнить сперва словарь, затем в цикле по строке заменить значения, если есть в словаре.
Да как угодно...

С другой стороны - если основную задачу решать в PQ, то и не нужно это всё...

Автор - Hugo
Дата добавления - 22.10.2020 в 19:18
Kuzmich Дата: Четверг, 22.10.2020, 22:53 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 106 ±
Замечаний: 0% ±

Excel 2003
А с темой Сортировка столбцов макросом разобрались?
 
Ответить
СообщениеА с темой Сортировка столбцов макросом разобрались?

Автор - Kuzmich
Дата добавления - 22.10.2020 в 22:53
Artem2292 Дата: Суббота, 24.10.2020, 23:37 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010, 2019, 365
Это очевидно в продолжение темы
http://www.excelworld.ru/forum/10-45975-1
Значит нужен макрос поиска списка названия по строке, изменение каждого найденного определённым образом.
Можно cделать 5 штук Find. С заменой.
По списку соответствий.
Или заполнить сперва словарь, затем в цикле по строке заменить значения, если есть в словаре.
Да как угодно...

С другой стороны - если основную задачу решать в PQ, то и не нужно это всё...


PQ не вариант, установлен 10 офис и поставить какие-либо дополнения просто невозможно.
да, в продолжении той темы.
Не поможете хотя бы кусочком макроса? %) а остаток сам как-нибудь допишу. В VBA полный чайник, но некоторые макросы получается писать, а в некоторых просто приходит ступор.. как тут :(

типа такого?:

почти, немного не то, но близко :) буду пытаться добить как-нибудь)) а так, суть в том, что есть выгрузка из системы, например с 20 столбцами и каждый раз порядок этих столбцов меняется, но в каждой выгрузке есть 5-6 столбцов которые мне нужны и хотелось бы, чтобы в макросе задать определённые названия столбцов и к этим названиям добавить цифры от 1 до 5. А далее другим макросом я их отсортирую и перекину в другой файл. Последние 2 шага работают, а вот с первым пока ломаю голову

ps вопрос снимается. всем спасибо. получилось реализовать, не без костылей, но все же))


Сообщение отредактировал Artem2292 - Воскресенье, 25.10.2020, 01:05
 
Ответить
Сообщение
Это очевидно в продолжение темы
http://www.excelworld.ru/forum/10-45975-1
Значит нужен макрос поиска списка названия по строке, изменение каждого найденного определённым образом.
Можно cделать 5 штук Find. С заменой.
По списку соответствий.
Или заполнить сперва словарь, затем в цикле по строке заменить значения, если есть в словаре.
Да как угодно...

С другой стороны - если основную задачу решать в PQ, то и не нужно это всё...


PQ не вариант, установлен 10 офис и поставить какие-либо дополнения просто невозможно.
да, в продолжении той темы.
Не поможете хотя бы кусочком макроса? %) а остаток сам как-нибудь допишу. В VBA полный чайник, но некоторые макросы получается писать, а в некоторых просто приходит ступор.. как тут :(

типа такого?:

почти, немного не то, но близко :) буду пытаться добить как-нибудь)) а так, суть в том, что есть выгрузка из системы, например с 20 столбцами и каждый раз порядок этих столбцов меняется, но в каждой выгрузке есть 5-6 столбцов которые мне нужны и хотелось бы, чтобы в макросе задать определённые названия столбцов и к этим названиям добавить цифры от 1 до 5. А далее другим макросом я их отсортирую и перекину в другой файл. Последние 2 шага работают, а вот с первым пока ломаю голову

ps вопрос снимается. всем спасибо. получилось реализовать, не без костылей, но все же))

Автор - Artem2292
Дата добавления - 24.10.2020 в 23:37
Artem2292 Дата: Воскресенье, 25.10.2020, 01:33 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010, 2019, 365
А с темой Сортировка столбцов макросом разобрались?


да, спасибо большое. Там все ок. Чуть переделал макрос
 
Ответить
Сообщение
А с темой Сортировка столбцов макросом разобрались?


да, спасибо большое. Там все ок. Чуть переделал макрос

Автор - Artem2292
Дата добавления - 25.10.2020 в 01:33
Artem2292 Дата: Воскресенье, 25.10.2020, 01:33 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

2010, 2019, 365
Вопрос решил, тему можно закрывать.
Всем спасибо!!
 
Ответить
СообщениеВопрос решил, тему можно закрывать.
Всем спасибо!!

Автор - Artem2292
Дата добавления - 25.10.2020 в 01:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление числа в название столбца (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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