У меня есть диапазон, который я хочу записать в файл, чередующийся между столбцами на каждой итерации. Я бы A1> B1> А2> В2 и т.д., чтобы дать пример:Ссылка на диапазон 100x2, затем печать в файл
A | B
1 Hello | World
2 Whats | Up
Теперь я бы это в текстовом файле, как:
Hello
World
Whats
Up
У меня есть следующий код, который захватит информацию от моего первого столбца, но я застрял при добавлении второго столбца на каждую итерации:
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