excel多個工作表資料快速合併到一個工作表方法
- IT科技
- 關注:2.64W次
材料/工具
excelVAB
方法
假設分別有工作表1、2、3。
將滑鼠指標移至“Sheet1”,右鍵選擇“檢視原始碼”,即可開啟VBE編輯器,
在工程視窗下的Microsoft Excel物件右鍵“插入”,點選“模組”,新建一個模組1。
輸入如圖所示的程式碼。
Option Explicit
Sub hbgzb()
Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer
flag = False
For i = 1 To Sheets.Count
If Sheets(i).Name = "合併資料" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "合併資料"
Sheets("合併資料").Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If Sheets(i).Name <> "合併資料" Then
hrow = Sheets("合併資料").UsedRange.Row
hrowc = Sheets("合併資料").UsedRange.Rows.Count
If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets("合併資料").Cells(hrow, 1).End(xlUp)
Else
Sheets(i).UsedRange.Copy Sheets("合併資料").Cells(hrow + hrowc - 1, 1). Offset(1, 0)
End If
End If
Next i
End Sub
按ALT+F8開啟巨集對話方塊視窗,單擊執行hbgzb巨集。
即可實現excel多個工作表資料快速合併到一個工作表。
- 文章版權屬於文章作者所有,轉載請註明 https://shqsg.com/dianzi/22e2r6.html