макрос эксель

[akula3107]

Все привет. Помогите с макросом. Имеется таблица в эксель.
Символы в таблице могут быть разными, а размер почти 100 на 100 ячеек, может меньше может больше. Для примера буква B. Нужно вот что… макрос должен присваивать ячейке координату по Х и по У. и выписывать результат в одну колонну в файл блокнота c расширением.txt
X0 Y0 B
X0 Y2 B
X0 Y4 B
X0 Y6 B
X0 Y6 B
X0 Y8 B
X0 Y10B
X2 Y2 B
X2 Y4 B
X2 Y6 B
X2 Y8 B
X2 Y10B
И т.д.

и сохраняется все это в файле блокнота .txt

[Aleksandr H.]

Сообщение от akula3107

Все привет. Помогите с макросом.

Поможем, но... Что уже сделано, от чего отталкиваемся?

[akula3107]

сделано в таблице. то есть под таблицей получается такая же таблица но уже с координатами, нижнюю часть нужно сохранить в блокноте в виде столбца, громоздко все это, тем более что работала там формула объединения ячеек "&"

[Aleksandr H.]

Sub WriteTXT()
    Dim cell As Range
    Open ThisWorkbook.path & "\output.txt" For Output As #1
    For Each cell In Range("B18:L28")
        Print #1, cell
    Next
    Close #1
End Sub

[akula3107]

спасибо! работает, но конкретно для этого примера. во вложении картинка. хочется что бы макрос работал для разных размеров, и для заполненных ячеек

[Aleksandr H.]

Sub WriteTXT()
    Dim rowsCount, colsCount, r As Range
    Open ThisWorkbook.Path & "\output2.txt" For Output As #1
    rowsCount = Cells(Rows.Count, "A").End(xlUp).Row
    colsCount = Cells(1, Columns.Count).End(xlToLeft).Column
    For Each r In Range(Cells(2, 2), Cells(rowsCount, colsCount))
        Print #1, Cells(r.Row, 1) & " " & Cells(r.Column, 1) & r
    Next
    Close #1
End Sub

[akula3107]

забыл в предыдущей таблице поменять координаты с цифрами на мои х и У. поменял у себя, запустил макрос, на выходе
X0 X0F
X0 X2F
X0 X4T
X0 X6T
X0 X8F
X0 X10T
X0 X12T
X0 X14F
X0 X16F
X0 X18F
X0 X20F
X0 X22F
X0 X24T
X0 X26T
X0 X28F
X0 X30T
X0 X32T
X0 X34F
X0 X36T
X0 X38T
X0 X40T
X0 X42T
X0 X44T

[Aleksandr H.]

"Не верю!" (с) Станиславский.
Если не можете разобраться, файл в аттач.

[akula3107]

доброго времени суток. я показал кусок текста. я имел ввиду что "У" отсутствует