单个表汇总问题

CHIYNU

如上描述，各位大神怎么修改代码，可以实现这个功能

lsc900707

CHIYNU 发表于 2017-3-13 17:25
大神，我也有遇到类似的问题，但是如果求和那一列有好几列需要汇总求和 怎么改代码呢

你的要 “求和”的话 就不能用这个代码。另传数据文件上来吧。

csong

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

谢谢，大神，很完美能解决了，再请教下能否变为只是对从左边开始的第一个表的数据汇总

lsc900707

csong 发表于 2017-3-13 19:09
谢谢，大神，很完美能解决了，再请教下能否变为只是对从左边开始的第一个表的数据汇总

代码放汇总工作表代码区：
Sub 汇总()
    UsedRange.Offset(1, 0).ClearContents
    Sheets(1).UsedRange.Offset(1, 0).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

csong

lsc900707 发表于 2017-3-13 19:16
代码放汇总工作表代码区：
Sub 汇总()
    UsedRange.Offset(1, 0).ClearContents

大神，你这个是简单的拷贝，我的数据可能有上千行，还有重复的也需要汇总。

lsc900707

csong 发表于 2017-3-13 19:21
大神，你这个是简单的拷贝，我的数据可能有上千行，还有重复的也需要汇总。

那你到底是合并还是汇总求和呀，看你附件就是合并数据

csong

lsc900707 发表于 2017-3-13 19:31
那你到底是合并还是汇总求和呀，看你附件就是合并数据

不好意思，让你误解了，是汇总求和。就是将V2表的内容汇总到汇总表，V1表是备份的过期数据，每次备份都要新建个表，所以只对左边的第一个表汇总，如果用表名称的方法汇总容易弄错，所以想按照左边第一个表的方式进行汇总更好。

lsc900707

csong 发表于 2017-3-13 19:52
不好意思，让你误解了，是汇总求和。就是将V2表的内容汇总到汇总表，V1表是备份的过期数据，每次备份都要 ...

Sub 汇总()
    Dim Arr, i%, j%, d, k%, Brr(), k1
    Set d = CreateObject("scripting.dictionary")
    With Sheets(1)
        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

csong

lsc900707 发表于 2017-3-13 20:02
Sub 汇总()
    Dim Arr, i%, j%, d, k%, Brr(), k1
    Set d = CreateObject("scripting.dictionary" ...

大神，谢谢了！！！！！！

CHIYNU

lsc900707 发表于 2017-3-13 17:40
你的要 “求和”的话 就不能用这个代码。另传数据文件上来吧。

Hi 大神帮忙看看呢。
就是想根据每个零件把每个月的需求都能自动算出来.
感激不尽啊