中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

打開VBE編輯器新建模塊并添加VBA代碼，如下圖：

操作方法：

按ALT F11組合鍵打開VBE編輯器，選中任意一個(gè)工作表名點(diǎn)擊右鍵，然后選擇“插入——模塊”，在模塊中粘貼以下代碼：

Sub 合并工作簿()

    Dim k$, i%, wk As Workbook, sh As Worksheet, arr

    Application.ScreenUpdating = False

   Sheets('合并').Range('A2:E65536').ClearContents

   Set kw = ThisWorkbook

    k = Dir(ThisWorkbook.Path & '\*.xls')

    Do While k <> ''

        If k <> kw.Name Then

            Set wk = Workbooks.Open(ThisWorkbook.Path & '\' & k)

            For Each sh In Worksheets

          sh.Copy after:=ThisWorkbook.Sheets('合并')

          Next sh

            wk.Close False

        End If

        k = Dir

    Loop

    Call 合并工作表

End Sub

Sub 合并工作表()

Dim sh As Worksheet

Dim i As Integer

For Each sh In Worksheets

If sh.Name <> '合并' Then

i = sh.UsedRange.Rows.Count

Sheets('合并').Columns(1).Cells(Sheets('合并').Columns(1).Cells.Count). _

End(xlUp).Offset(1).Resize(i - 1, 7) = sh.Range('a2').Resize(i - 1, 7).Value

End If

Next

Application.ScreenUpdating = True

Sheets('合并').Select

End Sub

添加一個(gè)用于執(zhí)行VBA代碼的按鈕，并指定要執(zhí)行的代碼

最終效果如下：

看到這里，你是否會(huì)覺得合并數(shù)據(jù)很強(qiáng)大呢？其實(shí)這還只是最基本的數(shù)據(jù)合并，如果有N個(gè)工作簿，每個(gè)工作簿有多個(gè)工作表，其中都有一個(gè)工作表名稱是相同的，我們只需要合并那個(gè)名稱相同的工作表（合并所有工作簿中指定名稱的工作表），你有想過(guò)應(yīng)該怎么做嗎？你想了解學(xué)習(xí)更多關(guān)于數(shù)據(jù)合并的知識(shí)嗎？

第294天的堅(jiān)持，離365天的小目標(biāo)還剩71天

我的Excel，天天與你不見不散