Riempimento celle vuote

Hai un problema con Excel?

Nuova discussione

Riempimento celle vuote
di Gugluca (utente non iscritto) data: 19/04/2012
Ciao a tutti,
ho creato una macro che scorre le colonne a,b,c, fino all'ultimo valore disponibile nella colonna d, riempiendo le celle vuote delle colonne a,b,c, con l'ultimo valore disponibile colonna per colonna.
il problema è che è piuttosto lenta come macro.
vi inserisco il codice sotto. avete qualche consiglio per renderla più veloce ed efficiente?

grazie in anticipo

luca

Sub riempi_celle()
myVal = Range("a1").Value
For i = 1 To Range("d65000").End(xlUp).Row
    If Range("a" & i).Value = "" Then
Range("a" & i).Value = myVal
 Else
        myVal = Range("a" & i).Value
    End If
Next i
myVal = Range("b1").Value
For i = 1 To Range("d65000").End(xlUp).Row
    If Range("b" & i).Value = "" Then
Range("b" & i).Value = myVal
 Else
        myVal = Range("b" & i).Value
    End If
Next i
myVal = Range("c1").Value
For i = 1 To Range("d65000").End(xlUp).Row
    If Range("c" & i).Value = "" Then
Range("c" & i).Value = myVal
 Else
        myVal = Range("c" & i).Value
    End If
Next i
End Sub

di Patel (utente non iscritto) data: 19/04/2012
Spiega meglio o allega un piccolo esempio con solo 100 righe
di Gugluca (utente non iscritto) data: 19/04/2012
Ciao
ho allegato l'esempio

grazie ancora

luca
di Patel (utente non iscritto) data: 19/04/2012
Postalo in formato xlsm, non riesco ad aprirlo
di Gugluca (utente non iscritto) data: 19/04/2012
Fatto!
di Patel (utente non iscritto) data: 19/04/2012
Niente da fare, non me lo fa aprire

Vuoi Approfondire?