Excelの列から列への印刷値 - VB

Question

Excelの列の値を列に印刷するシナリオがあります。 セイの
A1 then B1 then C1

のようなものから、再度

A2 then B2 then C2

それはすべて動的に起こるはず。

Answer 1

次の行に移動し、その後、C1を通じてA1から始まり、各セルの値を設定するには、ネストされた、ループのための2つを使用することができます。

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まで、右から左、上から下に移動します。