So Windows 7 + Office 2003
Ciao a tutti,
in un foglio excel con un migliaio di righe piene intervallate da righe vuote vorrei automatizzare la numerazione progressiva delle celle che contengono testo.
Il testo è nelle colonne B e successive; la numerzione dovrebbe essere in colonna A.
Ad intervalli irregolari ci sono righe vuote e le righe piene vengono periodicamente implementate con nuove righe di testo.
Ho trovato la macro seguente, che numera solo le righe piene, saltando quelle vuote:
Public Sub m()
Dim sh As Worksheet
Dim lng As Long
Dim lCont As Long
Set sh = ThisWorkbook.Worksheets("Foglio1")
lCont = 1
With sh
For lng = 2 To 1000
If Len(.Cells(lng, 2).Value) > 0 Then
.Cells(lng, 1).Value = lCont
lCont = lCont + 1
Else
.Cells(lng, 1).Value = ""
End If
Next
End With
Set sh = Nothing
End Sub
ma io vorrei che dopo ogni riga vuota la numerazione ripartisse da 1. E' possibile?...
A titolo di esempio, vorrei ottenere questo risultato:
A2 1 B2 Blu
A3 2 B3 Giallo
A4 3 B4 Rosso
A5 B5 (vuoto)
A6 1 B6 Nero
A7 B7 (vuoto)
A8 1 B8 Viola
A9 2 B9 Azzurro
....
Grazie per l'auto
Registrazione
