VBA提取不重复客户名合计对应三列数据代码

ruhong18

求助提取不重复客户名合计对应三列数据VBA按钮代码

rardge2015

这个诉求没什么特殊操作，最佳方案是用数据透视表，源表用名称定义可实现自动扩充。程序需要精确定位各行与各列，一旦你改变了行列位置，程序就得改，不灵活。

ruhong18

rardge2015 发表于 2019-12-2 08:44
这个诉求没什么特殊操作，最佳方案是用数据透视表，源表用名称定义可实现自动扩充。程序需要精确定位各行与 ...

也可以是sheet1是汇总的，sheet2是提取不重复客户名合计对应三列数据的结果（分成2个工作表）

爱疯

Sub Click()
    Dim i
    Application.ScreenUpdating = False


    '1）地址
    Sheets(1).Select
    i = Range("c65536").End(xlUp).Row
    If i < 5 Then End
    i = ActiveSheet.Name & "!" & Range("c4:i" & i).Address(, , xlR1C1)


    '2）合并计算
    Sheets(2).Select
    Cells = ""
    [b1] = "客户"
    [b1].Consolidate Sources:=i, Function:=xlSum, TopRow:=True, LeftColumn:=True
    Range("c:d,g:g").Delete


    '3)序号
    [a1] = "序号"
    For i = 2 To Range("b65536").End(xlUp).Row
        Cells(i, 1) = i - 1
    Next


    '4）合计
    Cells(i, 1) = "合计"
    Cells(i, 3) = "=sum(c2:c" & i - 1 & ")"
    Cells(i, 3).AutoFill Destination:=Range("c" & i & ":e" & i), Type:=xlFillValues


    Range("a1").CurrentRegion.ColumnWidth = 15
End Sub


提取不重复客户名合计对应三列数据2.rar (17.48 KB, 下载次数: 17)

2019-12-3 16:41 上传

点击文件名下载附件

ruhong18

爱疯 发表于 2019-12-3 16:41
Sub Click()
    Dim i
    Application.ScreenUpdating = False

代码正确，感谢版主再次帮忙~    如何执行汇总 跳过“分类”的工作表，不对它进行汇总？