各反復で列を交互にファイルに書き込みたい範囲があります。例を挙げると、A1 > B1 > A2 > B2 などになります。
A | B
1 Hello | World
2 Whats | Up
これをテキストファイルに次のように記述します。
Hello
World
Whats
Up
最初の列から情報を取得する次のコードがありますが、反復ごとに 2 番目の列を追加することに行き詰まっています。
Sub mac()
Dim fso As New FileSystemObject
Dim stream As TextStream
Set stream = fso.CreateTextFile("F:\Hmmmmm.txt", True)
Range("G2").Select
Do Until IsEmpty(ActiveCell)
stream.WriteLine ActiveCell
' Here I would affectively want stream.WriteLine ActiveCell + 1 Column
ActiveCell.Offset(1, 0).Select
Loop
End Sub