Quiero escribir un valor en una columna de Excel en otras columnas.

Di algo como
A1 then B1 then C1

Y luego otra vez
A2 then B2 then C2

Todo debería suceder de forma dinámica.

-1
user2281858 16 ene. 2017 a las 22:26

1 respuesta

La mejor respuesta

Para establecer el valor de cada celda, comenzando en A1 hasta C1, luego pasando a la siguiente línea, puede usar dos bucles for, anidados:

Sub writeSomething()
     Dim intMaxRow as Integer, intRow as Integer
     Dim intMaxCol as Integer, intCol as Integer

     intMaxRow = 10
     intMaxCol = 3

     For intCol = 1 to intMaxCol
         For intRow = 1 to intMaxRow
             Sheet1.Cells(intRow, intCol).value = "Writing to cell at position " & intRow & ", " & intCol
         Next intRow
     Next intCol

End Sub

Eso escribirá la posición de la celda en cada celda de A1 a C10 moviéndose de derecha a izquierda, de arriba a abajo.

1
JNevill 16 ene. 2017 a las 23:47