Alexander A Manaeff -

 
 

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

Настройки MS Office, Open Office и пр. офисного ПО. Полезные советы и пр. То, чего не найдешь в бескрайних просторах Интернета. Решения тех проблем, которые не решаются типовыми ответами, которые можно получить в техподдержке Майкрософта - а именно: переустановить продукт или купить какой-ть другой лицензионный диск.

Модератор: UncleFather

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

Сообщение UncleFather » 11 фев 2011 17:58, Пт

Проблема:

Необходимо последовательно пронумеровать строки в таблице Excel. Закавыка в том, что часть ячеек в первом столбце объединена из двух-трех-четырех ячеек, см. рисунок:
12347.JPG
Пример таблицы
12347.JPG (93.78 КБ) Просмотров: 3777


Решение:
Код: Выделить всё
    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". Время будет - напишу и опубликую код.
Аватара пользователя
UncleFather
Site Admin
 
Сообщения: 1257
Зарегистрирован: 17 авг 2004 17:20, Вт

Вернуться в Office

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Alexander A Manaeff -
@Mail.ru .