从文本文件中选择并删除 Excel 中的特定行

从文本文件中选择并删除 Excel 中的特定行

我想选择一个很多行数,才能删除它们,手动执行此操作实际上需要几个小时。我在 .txt 文件中有具体的行号,每行都有一个数字。像这样:

1
5
8
9

是否有一些很酷的方法可以告诉 Excel 自动选择/删除这些行?

例子:
http://i.imgur.com/ccQegoC.png

答案1

下面是一个示例,帮助您开始使用 VBA 方面的内容。我创建了一个工作簿,其中包含两个字段,即供应商和文件位置。我还创建了一个 VBA 子过程,它将打开文本文件,并将任何包含供应商编号的行替换为末尾的回车符,并将其替换为空(“”):

Sub Remove_line_item()
Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer
myFile = Range("B2").Value
myFile = Application.GetOpenFilename()
Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
text = text & textline
Loop
text = Replace(text, Range("A2").Value & ChrW(14), "")

myFile.Write text
myFile.Close
End Sub

在此处输入图片描述

我每次只使用一个文件路径,但您可以更进一步,浏览目录中的所有文本文件。但愿这对您来说是一个好的开始。

相关内容