同一工作簿下所有工作表按相同名称汇总求和

ykcbf1100

jjip123 发表于 2024-12-24 10:44
在前面插入三列，然后统计，怎么才能不把前三列清空，然后后面依然能取数？

这样？？？

jjip123

ykcbf1100 发表于 2024-12-24 10:51
这样？？？

大神，是在B列前插入三列，

ykcbf1100

jjip123 发表于 2024-12-24 10:55
大神，是在B列前插入三列，

那你A列要自动生成吗？
如果A列是自动生成的，那你BCD列有数据也对不上啊。

jjip123

ykcbf1100 发表于 2024-12-24 11:07
那你A列要自动生成吗？
如果A列是自动生成的，那你BCD列有数据也对不上啊。

A列是固定的，要把A列统计数据 ，插入的BCD列 是手工填数据

ykcbf1100

jjip123 发表于 2024-12-24 11:18
A列是固定的，要把A列统计数据 ，插入的BCD列 是手工填数据

改好了。。。

ykcbf1100

改一下。。。

1. Sub ykcbf()    '//2024.12.23
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("总表")
   
5.     ReDim brr(1 To 100000, 1 To 100)
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> sh.Name Then
   
8.             If sht.UsedRange.Count > 1 Then
   
9.                 arr = sht.UsedRange
   
10.                 r = sht.Columns(1).Find("合计").Row
    
11.                 For j = 4 To UBound(arr, 2) Step 3
    
12.                     For i = 3 To r - 3
    
13.                         If arr(i, j + 1) <> Empty Then
    
14.                             s = arr(i, 1)
    
15.                             If Not d.exists(s) Then
    
16.                                 d(s) = Array(arr(i, j), arr(i, j + 1), arr(i, j + 2))
    
17.                             Else
    
18.                                 t = d(s)
    
19.                                 t(0) = t(0) + arr(i, j)
    
20.                                 t(1) = t(1) + arr(i, j + 1)
    
21.                                 t(2) = t(2) + arr(i, j + 2)
    
22.                                 d(s) = t
    
23.                             End If
    
24.                         End If
    
25.                     Next
    
26.                 Next
    
27.             End If
    
28.         End If
    
29.     Next
    
30.     With sh
    
31.         .UsedRange.Offset(2, 4).ClearContents
    
32.         arr = .UsedRange
    
33.         For i = 3 To UBound(arr)
    
34.             s = arr(i, 1)
    
35.             If d.exists(s) Then
    
36.                 For j = 5 To 7
    
37.                     arr(i, j) = d(s)(j - 5)
    
38.                 Next
    
39.             End If
    
40.         Next
    
41.         .UsedRange = arr
    
42.     End With
    
43.     Set d = Nothing
    
44.     Application.ScreenUpdating = True
    
45.     MsgBox "OK！"
    
46. End Sub
    

复制代码

jjip123

ykcbf1100 发表于 2024-12-24 12:06
改一下。。。

大神，这个FIND 合计，是不是我要统计数据的那些表必须要有合计才行？
没的合计这行代码运行黄色

ykcbf1100

jjip123 发表于 2024-12-24 14:43
大神，这个FIND 合计，是不是我要统计数据的那些表必须要有合计才行？
没的合计这行代码运行黄色

这一句代码就是有效数据的最大行
可以用下面这句替换：r = sht.Cells(Rows.Count, 1).End(3).row

ykcbf1100

jjip123 发表于 2024-12-24 14:43
大神，这个FIND 合计，是不是我要统计数据的那些表必须要有合计才行？
没的合计这行代码运行黄色

你应该规范分表的结构，不然，数据处理就变得麻烦易错。
本来你分表中没有合计以下几行“无用”的数据，就不必用find函数的。

jjip123

ykcbf1100 发表于 2024-12-24 15:12
你应该规范分表的结构，不然，数据处理就变得麻烦易错。
本来你分表中没有合计以下几行“无用”的数据， ...

那我把下面合计那些无用的全删除了就不用FIND 这个了吗？