Здравствуйте, я пытаюсь прочитать файл Excel и преобразовать его в файл без пробелов (удалось сделать - посмотрите мой код), также мне нужна помощь, где перед моим блоком данных есть заголовок / тег с именем периода, который мне нужно прочитать и использовать его в моих строках. Любая помощь будет отличной. Спасибо.
Sub Convert_Journal()
Application.ScreenUpdating = False
Const NoLines As Integer = 1000
Dim i&
Columns("A:I").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("target").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
For i = NoLines To 1 Step -1
If WorksheetFunction.CountA(Range("A" & i, "I" & i)) < 9 Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
ФАЙЛ ИСТОЧНИКА 1 : https://i.stack.imgur.com/Wq2ql.png
ФАЙЛ НАПРАВЛЕНИЯ