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”的文件。
0
投稿猜你喜欢
- WPS筛选功能，是非常方便的工具，可以把满足条件的筛选出来，这极大的提高我们的工作效率，那么，怎样使用wps表格的自动筛选功能呢?下面就让小
Win11首个预览版已经发布了，很多用户都想安装尝试一下，但是Win11安装是有配置要去限制的，如果你想要通过WindowsInsider项- 麻花影视不能进行投屏是怎么回事？有些用户想要使用麻花影视进行投屏时，发现投屏不了，那么我们该怎么解决这个问题呢？下面就给大家分享麻花影视不能
- 随着社会的不断发展，现在的办公软件已经是人们的必备办公软件了，其中的word软件就因此成为了热门的办公软件，也拥有了庞大的用户群体，word
- 如果您想要一款3D场景渲染工具不妨试试SimLab Composer 9 Mac。simlab composer 9是一款完整，简单，功能丰
- 说明PEARSON 函数返回 Pearson（皮尔生）乘积矩相关系数。该系数是 -1 到 1 之间的无量纲指数，反应两个数据集合之间的线性相
- 主题医院mac是一款经典好玩的休闲经营游戏。采用经营养成的玩法，在保证与经典同名单机游戏的玩法和内容基础上，增加了多人互动、员工养成系统等新
- 最近有的用户在使用Win10系统的时候，遇到了任务栏开机一直转圈的情况，由于用户之前没有遇到过这种情况，所以不知道怎么解决，下面教给大家解决
- VLOOKUP 函数是 Excel 中几个最重函数之一，为了方便大家学习，本文针对 VLOOKUP 函数的使用和扩展应用，进行一次全面综合的
- 什么是病毒、木马、蠕虫？互联网时代，时代之幸，也是不安定因素的温床，这些不安定因素是导致计算机和计算机上的信息损坏乃至被窃的恶意程序，它们可
- 要引用其它工作簿中的数据，其引用方法和同一工作簿中不同工作表的方法类似。例如我们要把工作簿【学生成绩表】中付小华的成绩引用到工作簿【成绩表】
- 对一些不熟悉路由器的新手小白用户，就有个疑问，要是自己换了房子那路由器需要重新设置吗？小奥比安这里告诉大家，这需要看情况哦。不换网的情况下，
- 本文是以数字为例的，同样的方法也适于汉字。首先，选中我们要输入手机号码的一列选择功能区的数据选项，并在数据工具组里执行数据有效性如图在弹出的
- 在wps表格中输入日期时间的方法：首先打开excel表格，然后输入年月日，时分秒，选中单元格的时候显示的是正常的，但是鼠标移到奇谈单元格的时
- 当我们使用Windows 10操作系统在绝地求生上生存的时候，我们的一些朋友在游戏更新完成并进入游戏时，遇到了提示不创建Win64TslGa
- 在苹果Mac上如何立即找到您想要的东西？小编今天告诉大家在Mac上的任何程序中查找单词及使用Spotlight从单个搜索工具搜索所有程序和文
- 大家对QQ游戏应该是非常熟悉了，QQ游戏里面有多种多样的游戏，在空闲时往往会玩一玩游戏。不过有用户反映，在关闭QQ游戏大厅的时候，总是会弹出
- 如何在wps表格中设置解除密码呢，对于新手来说还是有一定难度，怎么办?接下来小编告诉你wps表格撤销解除密码的方法。wps表格撤销解除密码的
- 如何查看电脑是什么操作系统和多少位？在工作当中，有的时候，需要安装一些软件或驱动，在安装这些软件或驱动时，软件或驱动有很多版本。
- WPS 2019 在使用一些文档的时候，需要用到封面，但是我们不希望封面显示页码。今天小编给大家带来WPS 2019首页不显示页码的设置方法
