[vba excel] - estrarre prime righe successive a celle vuote

[john_revelator]

Ciao a tutti. Mi scuso per il titolo un pò criptico ma non ho trovato di meglio. Spero con un esempio pratico di rendere l'idea.

1  aaa
2  bbb
3
4  ccc
5
6
7  ddd
8  eee
9  ffff
10
11 ggg

In pratica ho una colonna con una serie di stringhe (i numeri da 1 a 11 corrispondono semplicemente ai numeri di riga) e dovrei estrarre aaa,ccc,ddd e ggg, cioè le prime righe successive agli spazi. Non mi aspetto la pappa pronta ma mi accontento di un semplice suggerimento circa la logica da seguire. Grazie per l'attenzione.

[john_revelator]

Ho fatto qualche piccolo progresso.

Option Explicit

Sub primi()
Dim ultimariga As Long, i As Long
ultimariga = Range("a65536").End(xlUp).Row
For i = 1 To ultimariga
    Do While IsEmpty(Range("a" & i)) And Range("a" & i).Offset(1, 0) <> ""
        MsgBox Range("a" & i).Offset(1, 0)
        Exit Do
    Loop
Next i
End Sub

Devo solo trovare il modo di includere nell'elenco anche il primo valore nel caso in cui la prima riga della colonna non sia vuota.

edit. Pare che adesso funzioni tutto a dovere

Option Explicit

Sub primi()
Dim ultimariga As Long, i As Long
ultimariga = Range("a65536").End(xlUp).Row
If Range("a1") <> "" Then
MsgBox Range("a1")
End If
For i = 1 To ultimariga
    Do While IsEmpty(Range("a" & i)) And Range("a" & i).Offset(1, 0) <> ""
        MsgBox Range("a" & i).Offset(1, 0)
        Exit Do
    Loop
Next i
End Sub

ma mi piacerebbe sapere se è possibile evitare quel rozzo if e usare una soluzione più "elegante".

[MarcoGG]

Più che altro credo si possa tranquillamente evitare un Do Loop nidificato nel For, e l'uso degli Offset.
Se è stabilito che [A1] sia sempre <> "", allora si può anche evitare l'If a cui ti riferisci :

    Dim i As Long
    Dim ultimariga As Long
    ultimariga = Range("A65536").End(xlUp).Row
    For i = 1 To ultimariga
        On Error Resume Next
        If Range("A" & (i - 1)).Text = "" And Range("A" & i).Text <> "" Then MsgBox Range("A" & i).Text
    Next i

Se invece [A1] può anche essere = "", allora :

    Dim i As Long
    Dim ultimariga As Long
    ultimariga = Range("A65536").End(xlUp).Row
    If Range("A1").Text <> "" Then MsgBox Range("A1").Text
    For i = 2 To ultimariga
        If Range("A" & (i - 1)).Text = "" And Range("A" & i).Text <> "" Then MsgBox Range("A" & i).Text
    Next i

In ogni caso è un po' più compatto.

[john_revelator]

Ciao Marco. Grazie mille. E' perfetto e molto più semplice rispetto ai casini che la mia mente malata aveva partorito.
Sei sempre il mio eroe. Buona serata e grazie ancora.

[MarcoGG]

Originariamente inviato da john_revelator

Ciao Marco. Grazie mille. E' perfetto e molto più semplice rispetto ai casini che la mia mente malata aveva partorito.
Sei sempre il mio eroe. Buona serata e grazie ancora.