Excel numeracja wierszy

[news.tpi.pl]

Czy jest jakies rozwiazanie ponumerowania wierszy jesli niektore wiersze
sa scalone ?
Excel krzyczy ze nie moze bo niektore komorki sa scalone.

[pxd74]

Post by news.tpi.pl
Czy jest jakies rozwiazanie ponumerowania wierszy jesli niektore wiersze
sa scalone ?
Excel krzyczy ze nie moze bo niektore komorki sa scalone.

Zaznacz komórki i uruchom takie makro:

Sub Ponumeruj()
Dim i As Long, j As Long
Dim ile As Long

If Selection.Columns.Count > 1 Then
MsgBox "Musisz zaznaczyc pojedyncza kolumne danych", vbExclamation
Exit Sub
End If
For i = 1 To Selection.Count
j = j + 1
Selection(i) = j
ile = Selection(i).MergeArea.Count
i = i + ile - 1
Next
End Sub