excel如何过滤内容？

excel如何过滤内容？

问：如下图，一个名为“InputFile.csv”的文件每行有6个数字，每个数字之间用空格隔开。

现在，我将把从6到69的行放入另一个名为“OutputFile.csv”的文件中。中只给出了少量样本数据。我的数据有几千行。如何快速找到这些数据，将符合条件的行复制到新文件中？

答：VBA代码如下：

子过滤器文本文件()

将读取线调暗为字符串

Dim buf

使用Open语句打开或创建文件。

打开此工作簿。作为#1输入的路径“\InputFile.csv”

打开此工作簿。作为#2输出的路径“\OutputFile.csv”

循环，直到到达指定文件的结尾。

直到电渗流(1)

读取文件中的一行，并将其分配给ReadLine变量。

线路输入#1，读取线路

将ReadLine中的字符串拆分为数组。

buf=Split(ReadLine，“”)

判断数组的第一个值是否在6到69之间。

如果是，将其写入文件编号指定的文件。

如果buf()=6，buf()为7，那么

打印#2，读取线

如果…就会结束

环

关闭文件。

关闭#2

关闭#1

末端接头

假设代码“InputFile.csv”和“OutputFile.csv”文件与代码工作簿放在同一个文件夹中。

用代码：

1.第一个Open语句用于打开“InputFile.csv”文件，指定文件编号#1。

2.第二个Open语句用于创建“OutputFile.csv”文件，指定文件编号#2。Excel将在文件夹中创建此文件，因为文件夹中没有这样的文件。

3.EOF(1)用于检测它是否已经到达文件编号#1的末尾。

4.4。Line Input语句从文件编号为#1的文件中逐行读取内容，并将其分配给变量ReadLine。

5.5。Split函数使用指定的空格分隔符将字符串拆分为以下标为起始值的一维数组。

6.6。Print语句将ReadLine变量中的字符串写入文件号为#2的文件。

7.语句关闭指定的文件。

代码的图片版本如下：

运行代码后，将在工作簿所在的文件夹中生成一个名为“OutputFile.csv”的文件，如下所示。