小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

搜索
分享

【原】Excel | VBA（5）——合并工作薄

 bitterfleabane 2020-03-22

一起來學office，提高辦公技能

問題情境
大體歸納一下，韓老師講過如下兩種多工作薄合并的方法：
Excel｜多工作簿數據合并一文中，講了利用SQL語句進行多工作表合并；
在Excel | 數據查詢功能實現多工作簿合并與及時刷新一文中 ，講了利用數據查詢進行工作薄合并；
今天增加一種新的，最快速的合并工作表的方法——VBA。

VBA實現
（代碼行，請切換至橫屏觀看）
Sub 合并工作薄()
Dim FileOpen          '定義打開文件變量
Dim i As Integer      '定義打開文件個數變量
Application.ScreenUpdating = False       '關閉屏幕更新，避免合并時屏幕閃爍
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True)  '打開文件類型為.xlsx，并可以打開多個
i = 1
Do While i <= UBound(FileOpen)
    Workbooks.Open Filename:=FileOpen(i)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)           '將需要合并的工作薄中工作表合并到最后一個工作表
    i = i + 1
Loop
Application.ScreenUpdating = True     '打開屏幕更新
MsgBox "已完成合并"                   '合并完成并提示
End Sub

如下圖（建議橫屏觀看）：
效果如下：
如果 想把不同工作表數據匯總在同一工作表中，可參考Excel | VBA（4）——合并工作表。

    轉藏 分享 獻花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多