标签: Excel

  • 用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!