Страница 1 из 1

Необходимо пронумеровать строки в таблице Excel

Добавлено: 11 фев 2011 16:58, Пт
UncleFather

Проблема:

Необходимо последовательно пронумеровать строки в таблице Excel. Закавыка в том, что часть ячеек в первом столбце объединена из двух-трех-четырех ячеек, см. рисунок:

Пример таблицы
Пример таблицы
12347.JPG (93.78 КБ) 6528 просмотров

Решение:

Код: Выделить всё

    Range("A5").Select   'Становимся в первую позицию, откуда нужно нумеровать
    For I = 1 To 65536 'Задаем цикл до максимально возможного числа строк
        If Range("C" & Selection.Row + Selection.Rows.Count).Text = "" Then Exit For 'Проверяем, если ячейка С, из следующей за текущей группой ячеек, строки пуста, то выходим из цикла
        PrevCellAddr = "A" & Selection.Row 'Запоминаем адрес первой ячейки из текущей группы ячеек
        Range("A" & Selection.Row + Selection.Rows.Count).Select 'Переходим в следующую за текущей группой ячеек строку
        Selection.Formula = "=" & PrevCellAddr & "+1" 'Записываем в новую ячейку формулу, в которой увеличиваем значение предыдущей группы ячеек на 1
    Next I '

Можно выполнить то же самое, но "невидимо" для пользователя, то есть без использования метода "select". Время будет - напишу и опубликую код.