多个工作表数据如何汇总到某一工作表的指定位置

xuejian171

不同工作表的数据，
要在工作表对一个的单位下面汇总，


领导的想法是汇总栏冻结
在各单位更新数据后，汇总栏自行变动。

纯傻瓜小白。求助各位大神！！

orr89

Sub 汇总()
    Sheet1.Range("A2:F10000").Delete Shift:=xlUp
    For 表格循环 = 2 To Sheets.Count
        汇总表最后一行 = Sheet1.[a60000].End(xlUp).Row + 2
        Sheets(表格循环).Activate
        Range("A1:F" & [a60000].End(xlUp).Row).Copy
        Sheets("汇总").Select
        Range("A" & 汇总表最后一行).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("A" & 汇总表最后一行 + 2 & ":F" & [a60000].End(xlUp).Row).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        Range("B" & 汇总表最后一行) = Range("A" & 汇总表最后一行)
        Range("A" & 汇总表最后一行) = 表格循环 - 1
    Next
End Sub

不明白如此坐标的意义何在

jjmysjg

orr89 发表于 2020-1-14 21:43
Sub 汇总()
    Sheet1.Range("A2:F10000").Delete Shift:=xlUp
    For 表格循环 = 2 To Sheets.Count

这样的功能也能实现。服了

xuejian171

orr89 发表于 2020-1-14 21:43
Sub 汇总()
    Sheet1.Range("A2:F10000").Delete Shift:=xlUp
    For 表格循环 = 2 To Sheets.Count

感谢大神的回复~膜拜！

xuejian171

orr89 发表于 2020-1-14 21:43
Sub 汇总()
    Sheet1.Range("A2:F10000").Delete Shift:=xlUp
    For 表格循环 = 2 To Sheets.Count

能把您做完的素材文件发一份给我吗？我这边运行结果有点问题。sh50015@126.com。谢谢

orr89

jjmysjg 发表于 2020-1-14 22:07
这样的功能也能实现。服了

这个没啥啊，循环每个分表汇总到主表就行，这个例子一论坛都是啊。只是如此汇总实在是不知道有何意义。

orr89

xuejian171 发表于 2020-1-15 12:31
能把您做完的素材文件发一份给我吗？我这边运行结果有点问题。。谢谢

数据源改变就会不对，只能你自己改代码