用VBA编程提高Excel(WPS表格)效率

不幸被抓住整理数据,6K行数据,上百列,纯手动的话估计手残了。
发现本地球还存在VBA此等神器,成功救赎。
本文只是简单演示VBA的威力,详细使用方法,请自行搜索“Excel VBA 手册”(WPS也通用)

————————————————————————

统计数据
统计数据

好,我们这里有一列5874行的数据。统计“你上过多少门课”,数据的形式是数字,单元格留白的表示没有回答。
我们想统计其中“上过1~10门课”的样品数。当然,除了VBA,你还可以用其他方法轻易把它弄出来,不过这里就先用这个简单的例子来演示VBA。

1.在“开发工具”选项卡中打开VBA编辑器(WPS免费版用户是不带VBA功能的,VBA是收费软件)
2.从表格可以看到,第2-5874行都是要处理的数据。
3.在sheet1中键入代码,如下。

Sub sub_dist()
    Dim c As Range '用于选定某一格
    Count = 0 '统计符合条件的样品数
    '对选定区域的每一格进行操作
    For Each c In Range("a2:a5875")
       If c.Value > 0 And c.Value <= 10 Then '如果当格数据满足大于0不超过10,则计数加1
       Count = Count + 1
       End If
   Next c
      Range("a5875").Value = Count '在a5875这一格显示统计数据
      
End Sub
代码
代码

4. 点击上方的运行按键,运行该函数。

运行
运行

5. 结果就如你所愿,出现在了第5875行。

结果
结果

------------------
VBA能使你从大量的枯燥工作中解脱出来,让你有更多时间做更多有意义的事。
网上可以搜索到大量VBA教程~Keep learning!