作者：绿色风
分类：
时间：2022-08-18
浏览：101
楼主
BIN_YANG168 |
代码简洁、汇总速度超快。
- Sub XXX()
- Dim sht As Worksheet
- Dim irow&, icol&, Num&
- Application.ScreenUpdating = False
- For Each sht In Sheets
- If sht.Name <> "汇总" Then
- With sht
- irow = .[a65536].End(xlUp).Row
- icol = .[iv1].End(xlToLeft).Column
- Num = Sheets("汇总").[a65536].End(xlUp).Row
- .Range(.Cells(2, 1), .Cells(irow, icol)).Copy Sheets("汇总").Cells(Num + 1, 1)
- End With
- With Sheets("汇总")
- .Columns(icol + 1).NumberFormatLocal = "@"
- .Range(.Cells(Num + 1, icol + 1), .Cells(Num - 1 + irow, icol + 1)) = sht.Name
- End With
- End If
- Next
- Application.ScreenUpdating = True
- End Sub
- Sub Shanchu()
- Dim Num&
- With Sheets("汇总")
- Num = .[a65536].End(xlUp).Row
- If Num <> 1 Then .Rows("2:" & Num).Clear
- End With
- End Sub
 表内汇总.rar
|
2楼
sy053 |
很方便，也很适合我现在的工作，不过宏看的不是太懂。问下这个宏是不是汇总工作簿里的第一行标签和被汇总的一样就可以用呢？增加列会有影响吗？谢谢！ |
3楼
BIN_YANG168 |
ALT+F11打开VBA后台，插入一个模块，粘贴代码，可随意增加列，但所有表格的格式要一致。
要将汇总用的工作表命名为“汇总”。 |
4楼
ljx63426 |
很好,太强了,收下运用,多谢了!
 |
5楼
春雷 |
杨兄：
希望以后能顺便传上一个03版的附件！即便我们是07 的社区！
这样不会让下载附件的好学者感到失望！
因为这是你的酷帖,精髓！
|
6楼
BIN_YANG168 |
代码是相同的，只要COPY到2003版本就好了。
 |
7楼
xpm130 |
能把合并计算功能融合进去就更好了 |
8楼
qinhuan66 |
好好学习天天向上 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一