Druckwert in Excel Spalte zu Spalte - VB

Question

Ich habe ein Szenario, in dem ich Wert in Excel Spalte zu Spalte drucken möchte. etwas sagen wie
A1 then B1 then C1

und dann wieder

A2 then B2 then C2

Alles dynamisch passieren sollte.

Answer 1

Um den Wert jeder Zelle gesetzt, bei A1 durch C1 beginnen, dann in der nächsten Zeile zu bewegen, können Sie zwei for-Schleifen verwenden können, verschachtelte:

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 

Das wird die Zellenposition zu jeder Zelle schreiben von A1 bis C10 bewegt sich von rechts nach links, von oben nach unten.