怎么历遍工作表，然后根据汇总表的字段汇总金额并填入汇总表里

yanglinzi

参与一下。。

goodlzy

ykcbf1100 发表于 2024-12-23 14:40
已重新上传。
其实就改一句：brr(m, 1) = .Name

重新上传表格，您帮忙看看，用了您的代码，基本数据工作表也会被读取生成一行空数据，有些字段取不到数，能不能做根据汇总表可以任意添加或者是删减字段而不影响数据取数。万分感谢。

ykcbf1100

goodlzy 发表于 2024-12-23 15:49
重新上传表格，您帮忙看看，用了您的代码，基本数据工作表也会被读取生成一行空数据，有些字段取不到数， ...

附件供参考。。。
总表和分表中的字段增减都不影响，但二边的字段名请保持统一。

ykcbf1100

参与一下。。。

1. Sub 汇总()    '//2024.12.23
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("汇总表")
   
5.     With sh
   
6.         c1 = .UsedRange.Columns.Count
   
7.         ReDim brr(1 To 10000, 1 To c1)
   
8.         For j = 1 To c1
   
9.             s = .Cells(2, j).Value
   
10.             d(s) = j
    
11.         Next
    
12.     End With
    
13.     On Error Resume Next
    
14.     For Each sht In Sheets
    
15.         If InStr("基本信息|汇总表|录入界面", sht.Name) = 0 Then
    
16.             With sht
    
17.                 r = .Cells(Rows.Count, 1).End(3).Row
    
18.                 c = .UsedRange.Columns.Count
    
19.                 arr = .[a1].Resize(r, c)
    
20.                 For i = 3 To UBound(arr)
    
21.                     m = m + 1
    
22.                     For j = 1 To UBound(arr, 2)
    
23.                         s = arr(2, j)
    
24.                         If d.exists(s) Then
    
25.                             brr(m, d(s)) = arr(i, j)
    
26.                         End If
    
27.                     Next
    
28.                 Next
    
29.             End With
    
30.         End If
    
31.     Next
    
32.     With sh
    
33.         .UsedRange.Offset(2).ClearContents
    
34.         .[a3].Resize(m, c1) = brr
    
35.     End With
    
36.     Set d = Nothing
    
37.     Application.ScreenUpdating = True
    
38.     MsgBox "OK！"
    
39. End Sub
    

复制代码

goodlzy

ykcbf1100 发表于 2024-12-23 16:22
附件供参考。。。
总表和分表中的字段增减都不影响，但二边的字段名请保持统一。

可能是我表达的不清晰，您修改后我录入界面工资表录入数据后出来的效果与我原表不一样。看来我还是需要多学习。

goodlzy

yanglinzi 发表于 2024-12-23 15:14
参与一下。。

您可以根据我后边重新上传的附件再进行性改进不。我在我原表上用了您的代码，但是出现错误。无法进行汇总。

ykcbf1100

goodlzy 发表于 2024-12-23 16:33
可能是我表达的不清晰，您修改后我录入界面工资表录入数据后出来的效果与我原表不一样。看来我还是需要多 ...

你其它二个表都是空表，哪来不一样啊。
代码就是如此了，不再修改。

goodlzy

ykcbf1100 发表于 2024-12-23 16:35
你其它二个表都是空表，哪来不一样啊。
代码就是如此了，不再修改。

好的。谢谢了。

goodlzy

ykcbf1100 发表于 2024-12-23 16:35
你其它二个表都是空表，哪来不一样啊。
代码就是如此了，不再修改。

根据您后面的给的代码，可以了。但是您的代码是复制数据过去，因为是汇总表所以目标是汇总相应字段的汇总金额。麻烦您再帮忙改进一下。

goodlzy

顶起来。那位高手帮忙看看，问题还是没解决。