Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2671|回复: 3

[已解决]輸入區間日期後,產生到[工作表2],並依[省份]分類合計.

[复制链接]
发表于 2021-1-14 09:22 | 显示全部楼层 |阅读模式
請教各位前輩,如何輸入區間日期後,產生到[工作表2],並依[省份]分類合計.(如附件).謝謝.
最佳答案
2021-1-14 15:11
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)

日期省份分類合計.rar

10.9 KB, 下载次数: 11

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-1-14 15:11 | 显示全部楼层    本楼为最佳答案   
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)
回复

使用道具 举报

 楼主| 发表于 2021-1-15 08:59 | 显示全部楼层
爱疯 发表于 2021-1-14 15:11
Sub test()
    Call test1
    Call test2

感謝 愛瘋 大大多次協助,合併計算部份可否用字典或其他廻圏方式處理,謝謝.
回复

使用道具 举报

发表于 2021-1-16 09:24 | 显示全部楼层
dou10801 发表于 2021-1-15 08:59
感謝 愛瘋 大大多次協助,合併計算部份可否用字典或其他廻圏方式處理,謝謝.

其他方式效果,相当于自己写一个合并计算的功能,会多写些代码,不便于以后的修改。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:27 , Processed in 0.942755 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表