Как сделать нумерацию, минуя скрытую строку?

Пользователь

Сообщений: 148 Регистрация: 03.12.2017

04.08.2019 00:15:30

Использую такой код

Код
Sub pr() [e4].Select [e4] = 1 [e4].AutoFill Destination:=Range([e4], Range(Selection, Selection.End(xlDown))), Type:=xlFillSeries End Sub

Проблема возникает когда скрыта строка, ячейка в скрытой строке тоже нумеруется, а при просмотре получается как бы нумерация сбита.
Подскажите пожалуйста может есть другой способ нумерации?

Прикрепленные файлы

Нумерация при скрытой ячейки.xlsm (18.58 КБ)

Изменено: Dobepman - 04.08.2019 10:41:41

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

04.08.2019 03:40:57

есть 1001 способов нумерации
вот 1001-й

Код

Sub pr()
  Dim rg As Range, c As Range, i&
  [e4] = 1
  Set rg = Range(Cells(1, 5).End(xlDown), Cells(Rows.Count, 5).End(xlUp))
  Set rg = rg.SpecialCells(xlCellTypeVisible)
  For Each c In rg:  i = i + 1: c = i:  Next
End Sub

Прикрепленные файлы

Нумерация при скрытой ячейки.xlsm (19.9 КБ)

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Dobepman Пользователь Сообщений: 148 Регистрация: 03.12.2017	#3 04.08.2019 05:54:04 Мощно! Не знал ни одного. Теперь вот один узнал. Спасибо за подсказку