Страницы: 1
RSS
VBA Объединить каждые 25 строк из 80 тыс, Нужен правильный макрос
 
Всем привет!
Такая задача:
Есть файл excel таблица. В ней 80 тыс строк одной колонкой. Необходимо объединить каждые 25 ячеек в этой колонке в одну ячейку.
В ячейках номера, пример 254251200025452001, они идут по порядку но с контрольной цифрой в конце.
То есть например есть 80 тыс строк и после объединения будет 3200 ячеек в которых будет по 25 номеров.
Так же необходимо чтобы была возможность количество менять в зависимости от задачи.
Изменено: Pankiller - 01.04.2020 12:45:09
 
пример неработающего макроса не нужен, нужно четкое описание что именно нужно обьединять
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Описание ни о чем. Строки в каких столбцах объединять? Есть ли в них данные ? Где файл пример?
 
исправил описание и добавил файл.
 
Код
Sub MergeRows()
  Const r1& = 1, rc& = 25
  Dim r&
  r = r1:  Application.DisplayAlerts = False
  Do While Not IsEmpty(Cells(r, 1))
    Cells(r, 1).Resize(rc, 1).MergeCells = True:  r = r + rc
  Loop
  Application.DisplayAlerts = True
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх