excel 多表合併

這是一個經常使用並且經典的例子：根據內容，把N個工做表中的內容，合併到一個工做表中；

¤主要知識點¤

一、工做表選取和內容的複製；

二、IF分支語句和For循環語句的使用；

¤工做表樣式¤

Option Explicit Sub 合併工做表() Dim i As Integer Dim x As Integer, y As Integer Dim k As Integer ' Range("A1").CurrentRegion.Select ' Selection.Delete Range("A1").CurrentRegion.Value = "" For i = Worksheets.Count To 2 Step -1 If Worksheets(i).Name = "合併工做表" Then Exit For x = Worksheets(i).Range("A1").CurrentRegion.Rows.Count y = Worksheets(i).Range("A1").CurrentRegion.Columns.Count If Worksheets("合併工做表").Range("A1").Value = "" Then Worksheets(i).Range("A1").Resize(x, y).Copy Worksheets("合併工做表").Range("A1") Else k = Range("A1").CurrentRegion.Rows.Count + 1 Worksheets(i).Range("A3").Resize(x - 2, y).Copy Worksheets("合併工做表").Range("A" & k) End If Next i Columns.AutoFit End Sub