将值从一列写入下一列，然后写入下一列

Question

我想在Excel列中将值写入其他列。

说出像 A1 then B1 then C1

然后再次 A2 then B2 then C2

这一切都应该动态发生。

Answer 1

要设置每个单元格的值，从A1到C1开始，然后移到下一行，您可以使用两个for循环嵌套：

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

这会将单元格位置写入从A1到C10从右到左，从上到下移动的每个单元格。