如何可以将N个工作栏中的内容汇总到汇总工作栏中

loving_xy

如何用公式可以将N个工作栏中的相关数据汇总到一起？即：工作表1有1行内容，工作表2有2行内容，汇总工作表里的内容是工作表1+工作表2
求哪位大神可以帮我解决这样的问题，谢谢！

loving_xy

以前我都是复制粘贴的，有没有哪位大神可是用公式将副工作表中的内容自带到总表里去，这样，我就只要录入副工作表了，拜托了！或者是将N个工作栏中的A-I列在汇总表中进行汇总

05050818

Sub 汇总()
Application.ScreenUpdating = False
With Sheets("汇总")
s = .[A65536].End(3).Row
    .Rows("2:" & s).ClearContents
     

For Each st In Sheets
s = .[A65536].End(3).Row + 1
   If st.Name <> "汇总" Then
      r = st.Cells(Rows.Count, 1).End(3).Row
        ar = st.Range("A2:X" & r)
        Cells(s, 1).Resize(UBound(ar), UBound(ar, 2)) = ar
   End If
Next
End With
Application.ScreenUpdating = True
End Sub

loving_xy

05050818 发表于 2019-1-23 16:48
Sub 汇总()
Application.ScreenUpdating = False
With Sheets("汇总")

这位大神，非常谢谢你的帮助，可是我不太会操作编码程序，可以帮我做一份出来吗？

05050818

我也是菜鸟，不是大神。