从.txt导入中删除页眉和页脚

Question

我正在导入一个文本文件，该文件基本上是pdf的文本转换。我的第一个单元格包含标题。我正在使用的逻辑

1. 将第一个单元格捕获为标题
2. 遍历单元格并找到下一个Header实例
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

您可以使用find方法

Find Method

因此您可以找到页眉和页脚

Worksheet.cells.Find(header.value)