标签：整理数据

不幸被抓住整理数据，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!