excel学习库-excel vba一键汇总多个工作表

excel vba一键汇总多个工作表2024-01-29 19:44:25

系统学习点击下方课程链接，需要素材，关注老师后，下方评论“领取素材”即可 Sub 汇总多个工作表() Dim sh As Worksheet Dim 汇总 As Worksheet Dim lastRow As Long Dim i As Long '创建汇总工作表 Set 汇总 = ThisWorkbook.Sheets.Add(After:= _ ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) 汇总.Name = "汇总" '循环遍历所有工作表 For Each sh In ThisWorkbook.Worksheets '跳过汇总工作表 If sh.Name <> 汇总.Name Then '复制数据到汇总工作表 lastRow = 汇总.Cells(汇总.Rows.Count, "A").End(xlUp).Row sh.Range("A2:J" & sh.Cells(sh.Rows.Count, "A").End(xlUp).Row).Copy _ 汇总.Range("A" & lastRow + 1) End If Next sh '格式化汇总工作表汇总.Columns("A:J").AutoFit 汇总.Range("A1:J1").Font.Bold = True 汇总.Range("A1:J1").Interior.ColorIndex = 15 End Sub

« 2024年8月 »
一	二	三	四	五	六	日
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30	31

« 2024年8月 »

一

二

三

四

五

六

日

excel学习库

excel表格_excel函数公式大全_execl从入门到精通

excel vba一键汇总多个工作表2024-01-29 19:44:25