怎么实现多表自动计算

long1976

求助：由于每天数据很多，处理不便；老师怎么实现多表自动计算（累计值相减）
          还有如果工作表继续增加怎么办？
         请老师帮忙，谢谢！！！

long1976

      每天要有4个小时以上的时间在处理数据，眼睛都花了。自从加入这个论坛，好多数据在各位老师的帮助下，工作效率提高了很多很多。在此要隆重得感谢各位，谢谢{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}{:soso_e163:}！！！！！！

mineshine

仅供参考

1. 
   
2. Sub test()
   
3. Dim a%, n%, i%, sr As Long, s As Worksheet, sh As Worksheet
   
4. Set s = Sheets("计算")
   
5. a = 1
   
6. For Each sh In Sheets
   
7.     If sh.Name <> "计算" Then
   
8.         n = n + 1
   
9.         s.Cells(1, a) = "CX" & n    '第一列CXn编碼
   
10.         With s.Range(s.Cells(1, a), s.Cells(1, a + 2))  '合併第一列3栏並置中
    
11.             .Merge
    
12.             .HorizontalAlignment = xlCenter
    
13.         End With
    
14.         For sr = 2 To sh.[A65536].End(xlUp).Row
    
15.             For i = a To a + 2  '一次计算三行
    
16.                 If i = a Then
    
17.                     s.Cells(sr, i) = sh.Cells(sr, 13) - sh.Cells(sr, 6) 'M-F
    
18.                 ElseIf i = a + 1 Then
    
19.                     s.Cells(sr, i) = sh.Cells(sr, 20) - sh.Cells(sr, 13)    'T-M
    
20.                 ElseIf i = a + 2 Then
    
21.                     s.Cells(sr, i) = sh.Cells(sr, 20) - sh.Cells(sr, 6) 'T-F
    
22.                 End If
    
23.             Next i
    
24.         Next sr
    
25.         a = i
    
26.     End If
    
27. Next sh
    
28. End Sub
    

复制代码

long1976

mineshine 发表于 2011-9-7 10:55
仅供参考

谢谢！！
Sub test()
Dim a%, n%, i%, sr As Long, s As Worksheet, sh As Worksheet
Set s = Sheets("计算")
a = 1
For Each sh In Sheets
    If sh.Name <> "计算" Then
        n = n + 1
        s.Cells(1, a) = "CX" & n    '第一列CXn编碼
        With s.Range(s.Cells(1, a), s.Cells(1, a + 2))  '合併第一列3栏並置中
            .Merge
            .HorizontalAlignment = xlCenter
        End With
        For sr = 2 To sh.[A65536].End(xlUp).Row
            For i = a To a + 2  '一次计算三行
                If i = a Then
                    s.Cells(sr, i) = sh.Cells(sr, 13) - sh.Cells(sr, 6) 'M-F
                ElseIf i = a + 1 Then
                    s.Cells(sr, i) = sh.Cells(sr, 20) - sh.Cells(sr, 13)    'T-M
                ElseIf i = a + 2 Then
                    s.Cells(sr, i) = sh.Cells(sr, 20) - sh.Cells(sr, 6) 'T-F
                End If
            Next i
        Next sr
        a = i
    End If
Next sh
End Sub
麻烦帮我看看，怎么运行到后出现“类型不匹配”？？？

long1976

谢谢！！
Sub test()
Dim a%, n%, i%, sr As Long, s As Worksheet, sh As Worksheet
Set s = Sheets("计算")
a = 1
For Each sh In Sheets
    If sh.Name <> "计算" Then
        n = n + 1
        s.Cells(1, a) = "CX" & n    '第一列CXn编碼
        With s.Range(s.Cells(1, a), s.Cells(1, a + 2))  '合併第一列3栏並置中
            .Merge
            .HorizontalAlignment = xlCenter
        End With
        For sr = 2 To sh.[A65536].End(xlUp).Row
            For i = a To a + 2  '一次计算三行
                If i = a Then
                    s.Cells(sr, i) = sh.Cells(sr, 13) - sh.Cells(sr, 6) 'M-F
                ElseIf i = a + 1 Then
                    s.Cells(sr, i) = sh.Cells(sr, 20) - sh.Cells(sr, 13)    'T-M
                ElseIf i = a + 2 Then
                    s.Cells(sr, i) = sh.Cells(sr, 20) - sh.Cells(sr, 6) 'T-F
                End If
            Next i
        Next sr
        a = i
    End If
Next sh
End Sub
麻烦帮我看看，怎么运行到后出现“类型不匹配”？？？

long1976

mineshine 发表于 2011-9-7 10:55
仅供参考

问题解决了，谢谢老师！！！

fanyumin1314

自己汇总，做个常用的工具，只要数据格式不变，以后就节省时间了。

long1976

fanyumin1314 发表于 2011-9-7 12:18
自己汇总，做个常用的工具，只要数据格式不变，以后就节省时间了。

是啊，万事开头难啊

fanyumin1314

long1976 发表于 2011-9-7 13:03
是啊，万事开头难啊

加油，一起互帮互助

bpw0258

学习了，谢谢分享！