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

Ответить


Этот вопрос предназначен для предотвращения автоматической отправки форм спам-ботами.
Смайлики
:| :) :wink: :D :lol: :( :cry: 8) :o :oops: :? :x :P :evil: :twisted: :roll: :!: :?: :idea: :arrow: :mrgreen:
Ещё смайлики…

Markdown is OFF

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ВКЛЮЧЕНЫ

Обзор темы
   

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

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

UncleFather » 11 фев 2011 16:58, Пт

Проблема:

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

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

Решение:

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

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


Вернуться к началу