怎么样汇总不同表不同行，相同列相同人的应纳税额

cheng660900

汇总上面三个表的每个人的应纳税额.

lhm0926

看样子可能要汇总很多月份的，用公式很难做到，用代码处理会更方便，一步到位。

cheng660900

我感觉还是有规律的 ，至少每个表的要汇总的数字 都在每个表的同一列，就是每个表的姓名不完全相同，麻烦大神帮忙看看怎么用函数公式  谢谢

cheng660900

而且每个表名也是有规律的，就是月份递增

cheng660900

而且每个表名也是有规律的 就是月份递增

suuyuu

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Dim xlbook As Workbook, xlsheet As Worksheet, sht As Worksheet
   
4.     Dim FilePath As String, FileName As String
   
5.     Dim Arr(), Brr(), d As Object
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     Set sht = ThisWorkbook.Worksheets(1)
   
8.     FilePath = ThisWorkbook.Path & ""
   
9.     FileName = Dir(FilePath & "*.xlsx")
   
10.     Do While FileName <> ""
    
11.         Set xlbook = Workbooks.Open(FilePath & FileName)
    
12.         Set xlsheet = xlbook.Worksheets(1)
    
13.         Arr = xlsheet.UsedRange
    
14.         For i = 5 To UBound(Arr)
    
15.             If d.exists(Arr(i, 2)) Then
    
16.                 d(Arr(i, 2)) = Array(Arr(i, 2), d(Arr(i, 2))(1) + Arr(i, 4))
    
17.             Else
    
18.                 d(Arr(i, 2)) = Array(Arr(i, 2), Arr(i, 4))
    
19.             End If
    
20.             t = d(Arr(i, 2))
    
21.         Next i
    
22.         Erase Arr
    
23.         xlbook.Close False
    
24.         FileName = Dir
    
25.     Loop
    
26.     Brr = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Transpose(d.items))
    
27.     sht.Cells(5, 2).Resize(UBound(Brr), UBound(Brr, 2)) = Brr
    
28.     Erase Brr
    
29.     Set xlbook = Nothing
    
30.     Set xlsheet = Nothing
    
31.     Set sht = Nothing
    
32.     Application.ScreenUpdating = True
    
33. End Sub
    

复制代码

cheng660900

代码还是很难理解，要是能用函数公式就好了 谢谢大家

cheng660900

谢谢大家  谢谢