ник: ant_sol
мне необходимо создать текстовый файл, который будет содержать определенный текст, который должен начинаться с определенной строки.
есть файл (прилагается к сообщению), в котором в одной строке прописаны позиции с которых должен начинаться текст (фиолетовая строка), а так же сам текст, который должен печататься в файл (находится в строке ниже (строка без заливки)).
для решения этой задачи использую функцию 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