Ciclo For Each

Hai un problema con Excel?

Ciclo For Each di Roccia

Salve ragazzi, ho bisogno di una aggiustatina a un codice.
vorrei rendere variabile il numero delle righe del codice, ma non s'o come fare.
ringrazio x un eventuale risposta e vi saluto.

 For Each Cell In Range("A1:A10000")
 
   lung = Len(Cell.Value)
    Ean = 13 - lung
    If Ean > 0 Then
    For n = 1 To Ean
    Cell.Value = "'" & 0 & Cell.Value 
    Next
    End If
    Next

di Apoben64

La variabile "x " imposta l'area di ricerca dei valori partendo dalla prima riga della prima colonna del foglio .

Set x = Range(Cells(1,1), Cells(1,1).End(Xldown))
For each  Cell   in  x

di Roccia

Grazie apoben64, il codice che mi ha dato funziona benissimo, alla prossima
ciao

Vuoi approfondire questo argomento?