作者：绿色风
分类：
时间：2022-08-18
浏览：84
楼主
xmyjk |
Q:如何使用VBA汇总特定的工作表(表名为五位数字的表)第6行到第256行的数据到汇总工作表中
A:代码和附件如下：
- Sub sumsame()
- Dim sh As Worksheet, i As Integer, j As Long, nm As Long, nmm As Long, bm As String, arr, brr, mc
- Cells(1, 1).CurrentRegion.Offset(4).ClearContents
- For i = 4 To Worksheets.Count
- bm = Worksheets(i).Name: mc = Worksheets(i).[e2].Value
- If bm Like "[0-9][0-9][0-9][0-9][0-9]" Then
- arr = Worksheets(i).Range("A6:L256")
- ReDim brr(1 To UBound(arr, 1), 1 To UBound(arr, 2) + 2)
- For j = 1 To UBound(arr)
- brr(j, 1) = bm: brr(j, 2) = mc
- For nm = 1 To UBound(arr, 2)
- brr(j, nm + 2) = arr(j, nm)
- Next
- Next
- nmm = [a65536].End(3).Row + 1
- If nmm < 5 Then nmm = 5
- Cells(nmm, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
- End If
- Next
- End Sub
 汇总分表数据.rar
|
2楼
xyf2210 |
学习了这种用法 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一