VBA学习笔记6：将多个工作表中满足条件的数据汇总到同一个工作表

本文链接：https://blog.csdn.net/weixin_45355881/article/details/124308244

这篇VBA学习笔记介绍了如何筛选多个工作表中成绩大于等于90分的数据，并将这些数据汇总到一个新的工作表。文章提供了两种方法，包括使用数组并处理可能的空值问题，适用于需要跨表筛选和整理数据的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA学习笔记6：将多个工作表中满足条件的数据汇总到同一个工作表

需求：现有3个班级的成绩表，需要筛选出成绩>=90分的成绩及科目。

在这里插入图片描述
需要汇总如下：

脚本如下：

Sub 筛选满足条件的数据()
'将每班分数>=90分的同学及相关科目筛选出来
    Dim sht As Worksheet '存储每个班的表
    Dim sht0 As Worksheet '存储汇总表
    Dim cels As Range 
    Worksheets.Add(before:=Worksheets(1)).Name = "90分及以上" '在工作簿新建一个90分及以上的汇总表，该表放在最前面
    Set sht0 = Worksheets("90分及以上") '为了便于方便，将该工作表缩写为sht0
    [a1] = "年级": [b1] = "姓名": [c1] = "科目": [d1] = "分数" '：与enter（换行）的作用一样
    For Each sht In ThisWorkbook.Worksheets '遍历每一个工作表
        If sht.Name <> sht0.Name Then '只有工作表名非汇总表时执行
            For Each cels In sht.UsedRange
                If cels.Value >= 90 And VBA.IsNumeric(cels.Value) Then '如果分数>90且为数值型数据时执行（文本格式的值会大于数值，所以要筛选数值型，vba.isnumeric，就想worksheetsfunction.counta 内嵌函数都是先写函数名，再写要汇总的数据）
                    sht0.Range("a1048576").End(xlUp).Offset(1, 0) = sht.Name '最好用range("a1048576").end(xlup)从下到上找最后一个非空值，如果数据只有1行（仅有标题）的话，range("a1").end(xldown)去到了a1048576，无法定位到第2行  班级
                    sht0.Range("a1048576").End(xlUp).Offset(0, 1) = cels.End(xlToLeft) 'a列数据已经update进去了，所以后面只要向右偏移即可  姓名
                    sht0.Range("a1048576").End(xlUp).Offset(