芮和
分享更多关于Office的知识

Excel多个文档如何快速进行合并,10秒搞定~

芮和给大家分享一段非常实用的VBA代码,用来快速将多份Excel文档里的工作簿整合到一份文档中,并且建立多份新的Sheet表,不懂VBA也不要紧,代码都贴给大家了~

芮和给大家写了一份非常简单的VBA代码,可以快速将同个目录下所有的Excel文档合并到当前文档中,先来简单看下效果吧~

简单的贴下代码,就不具体解释了,VBA教程面向有一定基础的学员,是Excel中效率最高的功能,没有之一,后续我们会根据情况添加VBA教程~

Sub 按钮1_Click()
   
  Dim path As String
  Dim FileName As String
  Dim LastCell As Range
  Dim Wkb As Workbook
  Dim WS As Worksheet
  Dim ThisWB As String
  Dim MyDir As String

  '路径
  MyDir = ThisWorkbook.path & "\"
  ThisWB = ThisWorkbook.Name
  Application.EnableEvents = False
  Application.ScreenUpdating = False
  path = MyDir
  FileName = Dir(path & "\*.xlsx", vbNormal)
  Do Until FileName = ""
    If FileName <> ThisWB Then
      Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName)
      For Each WS In Wkb.Worksheets
        Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
       If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address Then
       Else
         WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
       End If
      Next WS
      Wkb.Close False
    End If
    FileName = Dir()
  Loop
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  
  Set Wkb = Nothing
  Set LastCell = Nothing
  
End Sub

点击文末下载按钮,即可获得这份小插件。

今天的自定义插件就分享到这里了~

——END——

阅读原文

相关文件下载地址
本站无任何弹出广告,若有浏览器(ADblocker)拦截,请添加本站白名单!
赞(0)
未经允许不得转载:芮和 » Excel多个文档如何快速进行合并,10秒搞定~

评论 抢沙发

8 + 6 =
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

买域名,就上缘分域名!

立即前往联系卖家