工作簿中多个工作表中的相同数据用VBA汇总到首页中求和

小年玩卡

如下图所示


模板.7z (63.97 KB, 下载次数: 10)

2023-6-23 10:25 上传

点击文件名下载附件

ykcbf1100

一个字典解决问题。

ww87725244

一定要用VBA吗？函数也很快啊
1、选中需要放置求和数据的单元格区域；
2、输入【=SUM（）】，点击第一个工作表标签，再按住Shift键，点击最后一个工作表标签；
3、点击数据第一个单元格，按Ctrl+回车键，搞定汇总求和

沈默00

ww87725244 发表于 2023-6-23 10:47
一定要用VBA吗？函数也很快啊
1、选中需要放置求和数据的单元格区域；
2、输入【=SUM（）】，点击第一个 ...

挺好的，可能他喜欢用VBA吧

fzxba

1. Sub test0() '参与一下
   
2.   Dim wks As Worksheet, Cel As Range
   
3.   Dim ar, r As Long, c As Long, strKey As String, sStr As String
   
4.   strKey = "名称"
   
5.   For Each wks In Worksheets
   
6.     If wks.Name <> "首页" Then
   
7.       With wks
   
8.         Set Cel = .UsedRange.Find(strKey, , xlValues, xlWhole, xlByRows, xlNext)
   
9.         If Not Cel Is Nothing Then
   
10.           r = .Cells(Rows.Count, Cel.Column).End(xlUp).Row
    
11.           c = Cel.Column + 2
    
12.           sStr = sStr & ",'" & .Name & "'!" & .Range(Cel, .Cells(r, c)).Address(, , xlR1C1)
    
13.         End If
    
14.       End With
    
15.     End If
    
16.   Next
    
17.   ar = Split(Mid(sStr, 2), ",")
    
18.   With Worksheets("首页").Range("AC1")
    
19.     .CurrentRegion.ClearContents
    
20.     .Consolidate ar, xlSum, True, True
    
21.     .Value = strKey
    
22.   End With
    
23. End Sub

复制代码

gwjkkkkk

参与一下。。。

jjmysjg

fzxba 发表于 2023-6-23 11:07

谢谢，学习一下

jjmysjg

fzxba 发表于 2023-6-23 11:07

这个代码真棒
谢谢大师！

jjmysjg

ww87725244 发表于 2023-6-23 10:47
一定要用VBA吗？函数也很快啊
1、选中需要放置求和数据的单元格区域；
2、输入【=SUM（）】，点击第一个 ...

名称一致的求和

z865593849

1. Sub a()
   
2. For i = 2 To Sheets.Count
   
3. Sheets(i).Range("Ad2:ae17").Copy
   
4. Sheets(1).Range("Ad2:ae17").PasteSpecial Paste:=xlPasteValues, Operation:=2
   
5. Next
   
6. End Sub

复制代码