Sub pr()
[e4].Select
[e4] = 1
[e4].AutoFill Destination:=Range([e4], Range(Selection, Selection.End(xlDown))), Type:=xlFillSeries
End Sub
Проблема возникает когда скрыта строка, ячейка в скрытой строке тоже нумеруется, а при просмотре получается как бы нумерация сбита. Подскажите пожалуйста может есть другой способ нумерации?
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