excel怎么筛选内容
时间:2023-05-28 12:32:28
excel怎么筛选内容
Q:如下所示,一个名为“InputFile.csv”文件,每行有6个数字,每个数字使用空格分隔开。
现在,我要将以6 至69开头的行放置到另一个名为“OutputFile.csv”的文件中。中只是给出了少量的示例数据,我的数据有几千行,如何快速对这些数据进行查找并将满足条件的行复制到新文件中?
A:VBA代码如下:
Sub FilterTextFile()
Dim ReadLine As String
Dim buf
‘使用Open语句打开或创建文件
OpenThisWorkbook.Path & “\InputFile.csv” For Input As #1
OpenThisWorkbook.Path & “\OutputFile.csv” For Output As #2
‘循环直至到达指定文件末尾
Do Until EOF(1)
‘读取文件中的一行并将其赋值给ReadLine变量
Line Input #1, ReadLine
‘将ReadLine中的字符串拆分成数组
buf =Split(ReadLine, ” “)
‘判断数组的第1个值是否处于6 至69之间
‘如果是则将其写入文件号指定的文件
If buf( ) >= 6 And buf( ) < 7 Then
Print #2, ReadLine
End If
Loop
‘关闭文件
Close #2
Close #1
End Sub
代码假设“InputFile.csv”和“OutputFile.csv”文件都放置在与代码工作簿相同的文件夹中。
代码中:
1.第1个Open语句用来打开“InputFile.csv”文件,指定文件号#1。
2.第2个Open语句用来创建“OutputFile.csv”文件,指定文件号#2。由于文件夹中事先没有这个文件,因此Excel会在文件夹中创建这个文件。
3.EOF(1)用来检测是否到达了文件号#1的文件末尾。
4.Line Input语句从文件号#1的文件中逐行读取其内容并将其赋值给变量ReadLine。
5.Split函数将字符串使用指定的空格分隔符拆分成下标以为起始值的一维数组。
6.Print语句将ReadLine变量中的字符串写入文件号#2的文件。
7.Close语句关闭指定的文件。
代码的图片版如下:
运行代码后,将在工作簿所在的文件夹中生成一个如下所示的名为“OutputFile.csv”的文件。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
如何解决Win10系统玩LOL游戏打不开提示句柄无效?
![](https://img.aspxhome.com/file/2023/1/a283230_0s.jpg)
Win10和Win7双系统之间如何切换?
![](https://img.aspxhome.com/file/2023/6/a323050_0s.png)
win10系统字体大小如何修改?win10系统字体大小修改方法
![](https://img.aspxhome.com/file/2023/8/47068_0s.jpg)
Win7系统如何进入安全模式?
![](https://img.aspxhome.com/file/2023/5/a314974_0s.jpg)
Win7如何保存网页视频?Win7保存网页视频方法
![](https://img.aspxhome.com/file/2023/27/a232272_0s.jpg)
因电量无法充到 1% 以上,苹果官方宣布为MacBook Pro 2016/2017 年款免费更换电池
![](https://img.aspxhome.com/file/2023/9/a208359_0s.jpeg)
微软承认Win10 KB4517389损坏了系统的开始菜单
![](https://img.aspxhome.com/file/2023/3/a295180_0s.jpg)
Win10 20H2升级错误,导致个人用户数据丢失怎么解决?
![](https://img.aspxhome.com/file/2023/7/49917_0s.jpg)
Win7系统关闭(取消)屏幕键盘的方法
![](https://img.aspxhome.com/file/2023/29/a253889_0s.png)
Win10开始菜单问题还是没有解决
![](https://img.aspxhome.com/file/2023/4/a308969_0s.jpg)
如何快速打开windows7和windows10快速截图工具
![](https://img.aspxhome.com/file/2023/30/a262674_0s.jpg)
Word多行文本怎么快速转换成表格形式?
![](https://img.aspxhome.com/file/2023/3/24993_0s.jpg)
excel表格如何使用days函数
用有效性圈出Excel表格中指定数据
excel如何将数组公式中的TRUE或FALSE转化为1或0
电脑在线看视频出现绿屏、花屏怎么回事?
![](https://img.aspxhome.com/file/2023/30/a264610_0s.png)
PPT增加撤销次数 PPT如何增加撤销次数图解教程
![](https://img.aspxhome.com/file/2023/10/a352752_0s.gif)
win8无线无法连接 解决win8如何连接无线
Win7网页视频看不了的解决方法
![](https://img.aspxhome.com/file/2023/27/a231950_0s.jpg)