Удалить верхний и нижний колонтитулы из импорта .txt

Question

Я импортирую текстовый файл, который в основном является текстовым преобразованием PDF. Моя первая ячейка содержит заголовок. Логика, которую я использую

1. Захват первой ячейки в качестве заголовка
2. Итерируйте по ячейкам и найдите следующий экземпляр заголовка
3. Ячейка выше нижнего колонтитула
4. Удалить две ячейки
5. Дополнительная проверка, если верхний и нижний колонтитулы совпадают

Есть ли более быстрый способ решения проблемы. Занимает много времени для больших текстовых файлов.

Dim lrow As Long
Dim Header As String
Header = Cells(1, 1).Value
lrow = Cells(Rows.count, 1).End(xlUp).Row
For i = 2 To lrow
Cells(1, 1).Value = ""
If WorksheetFunction.Trim(WorksheetFunction.Clean(Cells(i, 1).Value)) = WorksheetFunction.Trim(WorksheetFunction.Clean(Header)) Then
If WorksheetFunction.Trim(WorksheetFunction.Clean(Cells(i + 1, 1).Value)) <> WorksheetFunction.Trim(WorksheetFunction.Clean(Header)) Then
Cells(i, 1).Value = ""
Cells(i - 1, 1).Value = ""
End If

End If
Next

Answer 1

U может использовать метод поиска

Метод поиска

Таким образом, вы можете найти верхний и нижний колонтитулы

Worksheet.cells.Find(header.value)