Помогите пожалуйста с Автонумерацией ! В Excele .

[IFRSoff]

Вот еще один пример. Он более подходит, если вы потом будете пользоваться автофильтром или впр.

[Ofelok]

Спасибо всем большое )) но первый вариант мне конечно понравился больше .....низачто не догадался бы формулу с ячейкой складывать , чет помоему я туповат ))

[Serge_Bliznykov]

а я могу поделиться методикой/макросом, который иногда использую. вдруг кому-то пригодится...

Что есть.
есть документ в Excel. в первом столбце номера по порядку. НО! Есть заголовки разделов/подразделов.
и есть пустые строчки...
Кроме того, периодически удаляются/вставляются строчки с номерами.

Как это работает.
те строчки, которые должны нумероваться, обязательно должны иметь циферку в нумеруемом столбце (в макросе нумеруется столбец A)
(при копировании существующих строк - это автоматически получается...)
потом запускаем макрос (его лучше хранить в другой книге, чтобы не портить оригинальному файлу "карму безопасности")

макрос такой:

Sub Renumber_in_ColumnA()
  Dim i As Long, Row1 As Long, Row2 As Long, nn As Long
  Dim MyType As String
  Row1 = ActiveWorkbook.ActiveSheet.UsedRange.Row
  Row2 = Row1 + ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count - 1
  ' lastrow = Cells(Row1, 1).End(xlUp).Row
  MsgBox " от " & Str(Row1) & " до " & Str(Row2)
'  MsgBox "bokk=" & ActiveWorkbook.Name
  nn = 1
  For i = Row1 To Row2
    MyType = TypeName(Cells(i, 1).Value)
    If (MyType = "Double") And (Cells(i, 1).Value > 0) Then
      Cells(i, 1).Value = nn
      nn = nn + 1
    End If
  Next i
End Sub

p.s. хотя, конечно, признаю, автонумерацией это не назовёшь.. ;(