Excel实现提取指定条件的数据
Excel是很强大的办公软件。支持宏与vb语言使我们可很轻松的实现很多功能。本文为使用vb脚本实现将指定条件的数据拼接成一个特定格式的语句。因为初学者,工作中刚好需要拼接成此类的语句就进行了整理。若有更好的方式,欢迎进行交流。
操作方法
- 01
如下所示,现在需将B列中大于80分的数据提取出来,拼接成如下格式:姓名,分数;拼接成的语句保存到excel单元格中。数据提取其实有很多方式,本文使用vb脚本进行提取是为了当ab列添加或者删除数据后能够快速的得出结果,并且拼接为特定格式可以复制出来供其他用处。
- 02
因未启用宏的工作薄不能保存宏及vb工程。所以若则需要先将excel保存成启用宏的格式。将第一步中xls格式或者xlsx格式的excel点击【文件→另存为】,【保存类型】选择“Excel启用宏的工作薄”
- 03
打开第二步中保存的工作薄。点击excel的【开发工具→Visual Basic】打开vb脚本编辑器
- 04
在打开的脚本编辑器中,点击【插入→模块】
- 05
打开页面中输入如下代码,见截图中部分代码进行了备注,根据实际需要修改。 Function pinjie(fanwei) arr = fanwei For i = 1 To UBound(arr) If arr(i, 2) > 80 Then p = p & arr(i, 1) & ":" & arr(i, 2) & ";" End If Next i pinjie = Left(p, Len(p) - 1) End Function
- 06
保存代码后返回到excel中,在需要保存结果的单元格中调用编写好的函数。输入函数=pinjie(A:B),按回车之后,自动计算出结果。
- 07
计算出结果如下所示:
- 08
若想让输出结果换行显示,输出结果如下图所示,则只需将代码进行简单的修改即可,见截图。