excel 合并工作表的方法，用VBA代码实现合并工作表

摘要： 下图所示：一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的工作表。比如有的文件只有一张工作，有的文件是多张工作表。
　　现在的问题，...

下图所示：一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的工作表。比如有的文件只有一张工作，有的文件是多张工作表。

　　现在的问题，如何将这些多个文件实现合并工作表。将这些所有工作表全部合并到同一张工作表。

　　一般的做法，通过“移动或复制”实现合并工作表。要高效，可以使用VBA代码来实现合并工作表。

　　合并工作表操作步骤：

　　新建一个excel文件，按ALT F11，打开VBE编辑器，复制下面的代码，然后运行，选择文件夹下面的所有excel文件，执行合并工作表。

excel 编辑栏的显示和隐藏设置，以及excel编辑栏框大小高宽调整

excel编辑栏为什么要显示和隐藏呢？因为有些表格不需要编辑，隐藏excel编辑栏可以让空间更大些。但更多的时候，我们需要使用公式等等，所以大家都习惯了excel编辑栏的存在。有些新手朋友

Sub 合并工作簿()
    Dim FilesToOpen, wb As Workbook, sht As Worksheet
    Dim x As Integer

    On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _
      MultiSelect:=True, Title:="Files to Merge")

    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "No Files were selected"
        GoTo ExitHandler
    End If

    x = 1
    While x <= UBound(FilesToOpen)
        If FilesToOpen(x) <> ThisWorkbook.FullName Then
            Set wb = Workbooks.Open(Filename:=FilesToOpen(x))
            For Each sht In wb.Sheets
                sht.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Next
            wb.Close
        End If
        x = x 1
    Wend

ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub

ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub

　　说明：上面代码是合并xlsx文件，如果是合并excel2003的文件，需要将：FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx"，xlsx改为.xls。

excel 合并工作表的方法，用VBA代码实现合并工作表的下载地址：

本地下载

使用VBA代码来实现excel保留格式，用普通公式合并文本excel不会保留格式

单元格连接内容的同时如何做到excel保留格式。具体的excel保留格式效果如下：A1单元格里面的你是加粗的，们未加粗；B1单元格里面的好为加粗。excel保留格式的最终效果为C1单元格的效果。