Всем привет! Такая задача: Есть файл excel таблица. В ней 80 тыс строк одной колонкой. Необходимо объединить каждые 25 ячеек в этой колонке в одну ячейку. В ячейках номера, пример 254251200025452001, они идут по порядку но с контрольной цифрой в конце. То есть например есть 80 тыс строк и после объединения будет 3200 ячеек в которых будет по 25 номеров. Так же необходимо чтобы была возможность количество менять в зависимости от задачи.
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
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!