分类汇总问题求助大神

xingkongwo2003

一个工作簿下有多个工作表，将所有工作表内的数据，按A列“类型”分类汇总，汇总结果放到第一个sheet的某个部位。详见附件。
万分感谢各位大神。

跨越时空

A列单元格不合并可以吗？

DAY18883320729

完全没看出来规律。

zpy2

多表合并

create temp table aa as
select fillna(f03) 类型,f04 数量 from consolidateSheet where regexp('\d+',f04);
select 类型,sum(数量) from aa group by 类型;

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.30
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     ReDim brr(1 To 10000, 1 To 2)
   
4.     For Each sht In Sheets
   
5.         arr = sht.UsedRange
   
6.         For i = 2 To UBound(arr)
   
7.             If arr(i, 1) <> Empty Then st = arr(i, 1)
   
8.             d(st) = d(st) + arr(i, 2)
   
9.         Next
   
10.     Next
    
11.     With Sheets("Sheet1")
    
12.         .[g2:h10000] = ""
    
13.         .[g2].Resize(d.Count, 2) = WorksheetFunction.Transpose(Array(d.keys, d.Items))
    
14.         .[g2].Resize(d.Count, 2).Borders.LineStyle = 1
    
15.     End With
    
16. End Sub
    

复制代码

xingkongwo2003

ykcbf1100 发表于 2024-4-30 16:27
附件供参考。。。

感谢大神，您太厉害了，就是这个意思！！！！

cnmlgb9998

用PQ 难道，就不香么？？？？？？？？？？？？？？？？？？