
Public Riga As Double, I As Double, J As Double
Sub Copia_Celle_Piene()
Riga = Range("a65536").End(xlUp).Row
J = 1
For I = 1 To Riga
If Cells(I, 1) <> "" Then
Cells(J, 2) = Cells(I, 1)
J = J + 1
End If
Next I
End Sub
|
