Sub test()
Call test1
Call test2
End Sub
'高级筛选
Private Sub test1()
Dim x, y, z
Set x = Sheets(1).Range("A1").CurrentRegion '数据源
Set y = Sheets(1).[h1:i2] '条件区域
Set z = Sheets(3).Range("A1") '目的区域
z.Parent.Cells.Clear
x.AdvancedFilter xlFilterCopy, y, z
End Sub
'合并计算
Private Sub test2()
Sheets(3).Select
With Range("a1").CurrentRegion
.RemoveSubtotal
.Sort Key1:=[d1], Order1:=xlAscending, Header:=xlYes
.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=6
End With
' ActiveSheet.Outline.ShowLevels RowLevels:=2 '可选
End Sub
日期省份分類合計2.rar
(23.05 KB, 下载次数: 5)