[excel] elenco senza righe vuote

[marcoc]

Salve a tutti,
Vi faccio un breve esempio del mio caso.
In colonna A ho i giorni del mese (30 righe).
In colonna B ho le spese del giorno.
Per 10 giorni ho effettuato spese, per 20 no.
È possibile in automatico ottenere una tabella (in questo caso) con 10 righe, ovvero che mi riporti in una colonna solamente i giorni nei quali c'é stata una spesa e in un'altra la spesa stessa?

[alfrimpa]

Ciao Marco

Probabilmente si potrà fare anche con le formule ma io con queste non sono bravo per cui ti propongo una soluzione in VBA con la macro che vedi sotto.

Ti allego anche il file di prova

http://www.filedropper.com/marcoc

Codice: Seleziona tutto

Sub Estrai()
Dim ur As Long
Dim rng As Range
Dim cel As Range
Set rng = Range("a2:a32")
Range("d2:e50").ClearContents     <==== Questa istruzione nel file non c'è e serve a cancellare eventuali dati preesistenti
For Each cel In rng
ur = Cells(Rows.Count, "D").End(xlUp).Row
    If cel.Offset(0, 1).Value <> "" Then
        Range("a" & cel.Row & ":" & "b" & cel.Row).Copy Destination:=Range("d" & ur + 1)
    End If
Next cel
End Sub

Fai sapere se era questo quello che volevi.