[已解决]提取有資料的部份統計

dou10801

請教各位前輩如何提取有資料的部份統計,感謝

最佳答案

月排行榜 / 总排行榜

爱疯

2021-1-4 15:00

Sub test()
    Call test1
    Call test2
End Sub


'筛选
Sub test1()
    Application.ScreenUpdating = False
    Sheets(2).Select
    Cells.Clear

    Sheets(1).Select
    ActiveSheet.AutoFilterMode = False
    With Range("b2").CurrentRegion
        .AutoFilter Field:=5, Criteria1:="<>"
        .Copy Sheets(2).Range("a1")
        .AutoFilter
    End With

    Sheets(2).Select
End Sub


'求合计
Sub test2()
    Dim i
    Sheets(2).Select
    i = Range("a65536").End(xlUp).Row
    Cells(i + 1, "c") = "合計"
    Cells(i + 1, "d") = "=sum(d2:d" & i & ")"
    Cells(i + 1, "e") = "=sum(e2:e" & i & ")"
End Sub

跳转到最佳答案楼层

爱疯

如果从上到下延伸，一个自动筛选，不就能完成需求2么？

dou10801

感謝爱疯版主,表格橫向改直向也可以,麻煩你,謝謝.

爱疯

dou10801 发表于 2021-1-4 10:54
感謝爱疯版主,表格橫向改直向也可以,麻煩你,謝謝.

Sub Click()
    Application.ScreenUpdating = False
    Sheets(2).Select
    Cells.Clear

    Sheets(1).Select
    ActiveSheet.AutoFilterMode = False
    With Range("b2").CurrentRegion
        .AutoFilter Field:=5, Criteria1:="<>"
        .Copy Sheets(2).Range("a1")
        .AutoFilter
    End With

    Sheets(2).Select
End Sub

出貨統計2.rar (20.08 KB, 下载次数: 2)

2021-1-4 11:13 上传

点击文件名下载附件


这样可以吗

dou10801

爱疯 发表于 2021-1-4 11:13
Sub Click()
    Application.ScreenUpdating = False
    Sheets(2).Select

非常感謝,其中合計數量和合計金額如何計算.再次麻煩你.

爱疯

Sub test()
    Call test1
    Call test2
End Sub


'筛选
Sub test1()
    Application.ScreenUpdating = False
    Sheets(2).Select
    Cells.Clear

    Sheets(1).Select
    ActiveSheet.AutoFilterMode = False
    With Range("b2").CurrentRegion
        .AutoFilter Field:=5, Criteria1:="<>"
        .Copy Sheets(2).Range("a1")
        .AutoFilter
    End With

    Sheets(2).Select
End Sub


'求合计
Sub test2()
    Dim i
    Sheets(2).Select
    i = Range("a65536").End(xlUp).Row
    Cells(i + 1, "c") = "合計"
    Cells(i + 1, "d") = "=sum(d2:d" & i & ")"
    Cells(i + 1, "e") = "=sum(e2:e" & i & ")"
End Sub