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

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


Модератор: UncleFather

Аватара пользователя
UncleFather
Site Admin
Сообщения: 1503
Зарегистрирован: 17 авг 2004 16:20, Вт
Контактная информация:

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

Сообщение UncleFather »

Проблема:

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

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

Решение:

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

    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". Время будет - напишу и опубликую код.


Alexander A. Manaeff©

Понравилась статья? Будем крайне признательны за репосты в соцсетях! Материально поддержать проект можно здесь

Мои странички:
ВКонтакте
Одноклассники
Youtube
Facebook
Instagram

Изображение
Изображение
Изображение
Изображение