【Excel VBA】合併工作表-不含標題列

VBA合併工作表(無標題列)

當有多個工作表時,如何使用VBA快速合併多個工作表資料呢?
如:想將工作表1月~5月資料合併在同一工作表內。

輸入巨集

※輸入以下指令※

Sub 合併工作表()
Sheets.Add before:=Sheets(1)
Sheets(1).Name = “合併工作表”
For i = 2 To Sheets.Count
Sheets(i).Activate
Range(“A1”).Select
Selection.CurrentRegion.Select
Selection.Copy Destination:=Sheets(1).Range(“A10000”).End(xlUp).Offset(1)
Next
Sheets(1).Select
Rows(1).Delete
End Sub

語法說明

Sheets.Add before:=Sheets(1)
‘建立工作表至第一個工作表前面,也就是放到第一個工作表
Sheets(1).Name = “合併工作表”
‘將第一個工作表名稱命名為合併工作表
Selection.CurrentRegion.Select
‘選取目前區域的儲存格
Selection.Copy Destination:=Sheets(1).Range(“A10000”).End(xlUp).Offset(1)
‘選取區域複製到第一個工作表A10000儲存格向上有資料的儲存格,並且再下移一格,也就是接續往下複製出資料,若資料超出10000筆,需再將數值改大
Rows(1).Delete
‘刪除第一列,因Offset(1)會多出一列空白列,將其刪除

執行合併

點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。

執行後即新增出「合併工作表」,並將工作表1月~5月資料合併此工作表內

VBA合併工作表(含標題列)

其他文章分享

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *