将每日工作表中的数据通过"宏"自动汇总到"当月总汇"中

suntao2000

只要表格规范，要实现的问题不大

alienyjx

还有一个同类的表格, 能帮一起做了吗?

alienyjx

suntao2000 发表于 2023-5-16 14:43
只要表格规范，要实现的问题不大

见我上一个帖子, 还有一个同类的

吴中泉

alienyjx 发表于 2023-5-16 15:05
还有一个同类的表格, 能帮一起做了吗?

alienyjx

吴中泉 发表于 2023-5-16 15:23

1.计数面积相加计算
2.总工时现在不汇总, 可以空着

吴中泉

alienyjx 发表于 2023-5-16 15:30
1.计数面积相加计算
2.总工时现在不汇总, 可以空着

alienyjx

吴中泉 发表于 2023-5-16 15:51

是的, 这样是对的

吴中泉

吴中泉

汇总表代码晚上回家再弄


Sub 统计汇总()
Dim i As Integer
With Sheets("整月汇总")
    .[a3:f40000].Clear
    For Each sht In Sheets
     If sht.Name <> "整月汇总" And sht.Name <> "汇总" Then
        rs = .[B65536].End(xlUp).Row + 1
        r = sht.[B65536].End(xlUp).Row - 1
        arr = sht.Range("B3:G" & r + 1)
        If r > 1 Then .Range("A" & rs).Resize(r - 1, 5) = arr
        End If
     Next
End With
End Sub

吴中泉

1. Sub 统计汇总()
   
2. Dim i As Integer
   
3. With Sheets("整月汇总")
   
4.     .[a3:f40000].Clear
   
5.     For Each sht In Sheets
   
6.      If sht.Name <> "整月汇总" And sht.Name <> "汇总" Then
   
7.         rs = .[B65536].End(xlUp).Row + 1
   
8.         r = sht.[B65536].End(xlUp).Row - 1
   
9.         arr = sht.Range("A3:F" & r + 1)
   
10.         If r > 1 Then .Range("A" & rs).Resize(r - 1, 5) = arr
    
11.         End If
    
12.      Next
    
13. End With
    
14. End Sub
    

复制代码