estoy haciendo una macro en Excel y necesito cambiar los valores de una columna (un rango unidimensional) por un solo valor, es decir que todos sean 0
Tengo esto:
Dim iCell As Range
For Each iCell In Range(Range("A2"), Range("A2").End(xlDown)).Cells
With iCell
.Value = 1
End With
Next iCell
Este código me funciona mas o menos pero es muy eficiente y me rompe el excel jaja, necesito la manera mas eficiente de hacerlo porque esta de por si no funciona o funciona muy tarde y la columna tiene muchos valores.
Entonces no se si el código tiene algo mal o el código es simplemente ineficiente.
En resumen, convertir todos los valores que haya en esa columnaw en un 1