单个表汇总问题

csong

各位老师，
请教下我不想工作薄里的每个表都汇总，只是汇总里面的一个表（比如Sheet2）该怎么改？
谢谢！！

Dim sht As Worksheet
       For Each sht In Worksheets
        With sht
            If .Name <> "汇总" Then

liulang0808

for if都不用的
直接就是sheet2里的数据，按照要求汇总即可了

csong

@liulang0808，要怎么写，我不是很懂，请指教下!

lsc900707

能否上传一个附件看看。

csong

请各位老师指点下，帮忙改下！

lsc900707

csong 发表于 2017-3-13 11:09
请各位老师指点下，帮忙改下！

只能傍晚解压附件看了数据再修改。

csong

lsc900707 发表于 2017-3-13 11:25
只能傍晚解压附件看了数据再修改。

好的，谢谢！！

lsc900707

csong 发表于 2017-3-13 11:31
好的，谢谢！！

Sub 汇总()
    Dim Arr, i%, j%, d, k%, Brr(), k1
    Set d = CreateObject("scripting.dictionary")
    With Sheets("v1.0")
        Arr = .[a1].CurrentRegion
        For i = 2 To UBound(Arr)
            d(Arr(i, 1) & "@" & Arr(i, 2) & "@" & Arr(i, 3)) = d(Arr(i, 1) & "@" & Arr(i, 2) & "@" & Arr(i, 3)) + Arr(i, 4)
        Next
    End With
    k1 = d.keys
    ReDim Brr(0 To d.Count, 1 To 3)
    For i = 0 To d.Count - 1
        Brr(i, 1) = Split(k1(i), "@")(0)
        Brr(i, 2) = Split(k1(i), "@")(1)
        Brr(i, 3) = Split(k1(i), "@")(2)
    Next
    With Sheets("汇总")
        .UsedRange.Offset(1).ClearContents
        .[a2].Resize(d.Count, 3) = Brr
        .[d2].Resize(d.Count, 1) = Application.Transpose(d.items)
    End With
End Sub

lsc900707

csong 发表于 2017-3-13 11:31
好的，谢谢！！

你这个汇总只要简单的复制过来就ok了。
代码放汇总工作表代码区：
Sub 汇总()
    UsedRange.Offset(1, 0).ClearContents
    Sheet2.UsedRange.Offset(1, 0).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

CHIYNU

lsc900707 发表于 2017-3-13 16:57
你这个汇总只要简单的复制过来就ok了。
代码放汇总工作表代码区：
Sub 汇总()

大神，我也有遇到类似的问题，但是如果求和那一列有好几列需要汇总求和 怎么改代码呢