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”的文件。
猜你喜欢
- excel 2013插入复选框的教程:插入复选框步骤1:打开软件,新建一个默认的空白文档。 插入复选框步骤2:点击
- 方案一、用黑白激光打印机输出方案二、用彩色打印机输出时,勾选灰度打印例下图方案三、更改彩色文字颜色为黑色
- Win10电脑一装系统就出现电脑蓝屏怎么办?许多用户在使用电脑的时候,经常会需要给自己的电脑重装系统,可是最近有的小伙伴反应,自己在使用电脑
- 如何在Word 2016中的另一个文档中打开文档?在Word 2016中可以在另一个文档中打开一个文档。这样做并不像您想的那样奇怪。例如,您
- 如果一篇word文档需要在不同的地方使用同一种样式,我们要是一个地方一个地方的去设置非常麻烦,我们在word2019中新建样式可以快速的为文
- 有时Word中公式显示是乱码的,但是当双击公式在MathType中打开时发现公式以是正确的,关闭MathType后仍然显示乱码,这种Word
- 微软刚在7月和8月发布了针对Win10系统推出的补丁KB5005033,KB5005033是一个强制补丁,但是有用户发现这个补丁更新之后却给
- 在人事工作中,HR需要经常借助Excel来处理数据,比如设置员工的生日提醒,计算提成奖金,员工信息查询,又或者员工的综合考评分析等,如果不掌
- Excel如何快速把两行信息整理成一行?在做Excel表格的时候,要是想把表格里的两行数据整理成一行,你是在一个一个的复制吗?这样的效率是很
- 最近,很多网友问小编excel2007斜线表头怎么做?今天脚本之家小编就给大家分享excel2007在表格中添加斜线表头的方法,需要的朋友欢
- SUMIF函数可以对报表范围中符合指定条件的值求和,应该怎么在excel表格中使用该函数呢?下面随小编一起来看看吧。Excel表格使用Sum
- excel2007中页眉页脚怎么设置1、打开软件:2、选择打印预览:3、进入打印预览页面后,点击页面设置4、弹出页面设置对话框后,点击页眉页
- Excel文档中,常常会碰到单元格中的文字过多造成内容显示不全,或者文字过少造成多余空白,其实我们可以通过以下介绍的方法,快速的将列宽行高调
- 当我们使用win10操作系统时,有些小伙伴对win10系统的许多版本都会想知道wys10家庭版和wys10literal版有什么不同,那么对
- Airpods Pro空间音频功能开启后就可以随时随地享受影院效果的聆听体验了。Airpods Pro空间音频功能支持哪些设备和系统?既然称
- 使用Word编辑文档的时候,如果有小技巧的话,可以解决很多遇到的问题,也让工作更高效的完成,下面给大家分享word表格排序怎么设置的小技巧。
- 本文,我们将在这两篇文章介绍的技巧的基础上,实现绘制圆形轨迹运动,如图1所示。图1下图2是我们在图中所使用的数据,本文仍然使用这些数据。图2
- Windows 的 Office Build 14827.20088 预览版更新,内部更新了一个非常重要的功能,那就是Word程序应用增加了
- 打开excel文件时,总是提示以只读方式打开,怎么解决这个问题呢?答:有时候为了避免打开excel之后误操作,修改原文件,我们会将文件设置成
- Win10备忘录在哪打开?Win10自带有桌面备忘录工具。相信还有很多用户不知道这个功能,不知道在哪打开Win10备忘录,下面小编就为大家带