|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 汇总明细()
Dim arr()
Dim ar As Variant
ReDim arr(1 To 100000, 1 To 37)
For Each sh In Sheets
If sh.Name <> "汇总明细" And sh.Name <> "汇总均值" Then
ar = sh.[a1].CurrentRegion
For i = 2 To UBound(ar)
If Trim(ar(i, 2)) = "AQI" Then
n = n + 1
For j = 1 To UBound(ar, 2)
arr(n, j) = ar(i, j)
Next j
End If
Next i
End If
Next sh
If n = "" Then MsgBox "没有符合条件的数据": Exit Sub
With Sheets("汇总明细")
.[a1].CurrentRegion.Offset(1) = Empty
.[a2].Resize(n, UBound(arr, 2)) = arr
End With
MsgBox "OK!"
End Sub
|
|