мне необходимо создать текстовый файл, который будет содержать определенный текст, который должен начинаться с определенной строки.

есть файл (прилагается к сообщению), в котором в одной строке прописаны позиции с которых должен начинаться текст (фиолетовая строка), а так же сам текст, который должен печататься в файл (находится в строке ниже (строка без заливки)).

для решения этой задачи использую функцию print #1 tab(n), но некоторый текст печатается на 1 символ дальше.

как исправить этот баг ??

вот листинг :


Sub bb()
Dim y&, x&


Open "C:\текст1.txt" For Output As #1

For y = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 3
For x = 1 To Cells(y, Columns.Count).End(xlToLeft).Column

Print #1, Tab(Cells(y, x)); Cells(y + 2, x);

Next
Print #1,
Next

Reset
End Sub