怎么合并汇总

浩淼八百里

怎么把“24.1”到“24.12”合并汇总到“24年汇总”中并且能自动更新

小凡、、、

浩淼八百里

这样汇总

Excel_muke

浩淼八百里 发表于 2024-8-27 17:17
这样汇总

用VBA可以实现

1.按alt+f11，进入VBA窗口
2.双击左边ThisWorkbook，输入：

1. Sub 合并当前工作簿下的所有工作表()
   
2.     On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.    
   
6.     ' 添加一个新工作表并命名为"合并"
   
7.     Dim st As Worksheet
   
8.     Set st = Worksheets.Add(before:=Sheets(1))
   
9.     st.Name = "合并"
   
10.    
    
11.     ' 遍历工作簿中的所有工作表
    
12.     Dim shet As Worksheet
    
13.     For Each shet In Sheets
    
14.         If shet.Name <> "合并" Then
    
15.             ' 找到"合并"表中的最后一行
    
16.             Dim i As Long
    
17.             i = st.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
18.             
    
19.             ' 复制当前工作表的第三行开始到UsedRange的最后一行
    
20.             If shet.UsedRange.Rows.Count > 2 Then
    
21.                 shet.Range("A3", shet.Cells(shet.UsedRange.Rows.Count, shet.UsedRange.Columns.Count)).Copy
    
22.                 st.Cells(i, 1).PasteSpecial Paste:=xlPasteAll
    
23.             End If
    
24.         End If
    
25.     Next shet
    
26.    
    
27.     ' 恢复屏幕更新和警告
    
28.     Application.DisplayAlerts = True
    
29.     Application.ScreenUpdating = True
    
30.    
    
31.     ' 提示合并完成
    
32.     MsgBox "已完成"
    
33. End Sub
    

复制代码

3.按alt+q，退出VBA窗口
4.按alt+f8，执行VBA

Excel_muke

浩淼八百里 发表于 2024-8-27 17:17
这样汇总

用公式实现：

1. =IFNA(VSTACK(表1,表2,表3,表4,表5,表6,表7,表8,表9,表10,表11),"")

复制代码

需要提前将所有表转为超级表，即选中每个表格按ctrl+T，转为超级表后使用该公式，数据会自动更新

ericxzhou

Python+Pandas:
import pandas as pd

f = pd.ExcelFile('pandas exercise/sample398.xlsx')
lst = [f.parse(ws, header=1).assign(月份=ws) for ws in f.sheet_names[:-1]]
df = pd.concat(lst)
df = df[df['单位名称'].notna()]
df.to_excel('pandas exercise/Sample398_results.xlsx')

laomu2010

=DROP(REDUCE('24.1'!A2:I2,A2:A12,LAMBDA(X,Y,VSTACK(X,INDIRECT(Y&"!A3:I"&COUNTA(INDIRECT(Y&"!A:A"))+2)))),-1)



这样？

浩淼八百里

Excel_muke 发表于 2024-8-27 17:39
用VBA可以实现

1.按alt+f11，进入VBA窗口

好像不能自动更新啊

浩淼八百里

Excel_muke 发表于 2024-8-27 17:39
用VBA可以实现

1.按alt+f11，进入VBA窗口

好像不能自动更新啊

我要成为专家

1. =LET(s,VSTACK('24.1:24.12'!A3:I36),VSTACK('24.1'!A2:I2,FILTER(s,TAKE(s,,1)<>0)))

复制代码