正文

如何轻松合并多个Excel表格，数据不重复，一键完成！

/0 浏览量
0419

在工作和学习中，我们经常会遇到需要合并多个Excel表格的情况。手动合并不仅费时费力，而且容易出现错误。今天，我就来给大家分享一些轻松合并多个Excel表格，并且保证数据不重复的方法，让你一键完成！

一、使用Excel的“合并工作簿”功能

Excel自带的“合并工作簿”功能可以轻松实现多个工作簿的合并。以下是具体步骤：

  1. 打开Excel，点击“文件”菜单，选择“合并工作簿”。
  2. 在弹出的对话框中，选择“浏览”按钮，找到需要合并的Excel文件。
  3. 选择文件后，点击“确定”。
  4. 在弹出的“合并工作簿”对话框中，选择“合并所有工作表到当前活动工作表”或“合并到新工作簿”。
  5. 点击“确定”，等待Excel合并完成。

二、使用VBA脚本自动合并

如果你需要经常合并Excel表格，可以使用VBA脚本实现自动化操作。以下是VBA脚本示例：

Sub 合并工作簿()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim fso As Object
    Dim folderPath As String
    Dim fileName As String
    Dim lastRow As Long

    ' 设置文件夹路径
    folderPath = "C:\合并文件夹\"

    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 获取文件夹中所有Excel文件
    fileName = fso.GetFile(folderPath & "*.xls*").Name

    ' 遍历所有文件
    For Each wb In fso.GetFolder(folderPath).Files
        If wb.Name = fileName Then
            ' 获取合并后的工作表
            Set ws = ThisWorkbook.Sheets("合并后")

            ' 获取当前工作表最后一行
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

            ' 将当前工作表的内容复制到合并后的工作表
            ws.Range("A" & lastRow + 1).Resize(wb.Sheets(1).UsedRange.Rows.Count).Value = wb.Sheets(1).UsedRange.Value

            ' 删除当前工作簿
            wb.Close False
        End If
    Next wb

    ' 删除临时工作簿
    Application.DisplayAlerts = False
    ThisWorkbook.Close False
    Application.DisplayAlerts = True

    ' 提示完成
    MsgBox "合并完成！"
End Sub

将以上代码复制到Excel的VBA编辑器中，修改文件夹路径后，运行宏即可实现自动合并。

三、使用在线工具

如果你不想安装任何软件，可以使用一些在线工具进行合并。例如，你可以使用“在线Excel合并器”或“Sheetgo”等工具，上传Excel文件后，选择合并方式，即可一键完成合并。

总结

以上就是我为大家分享的几种轻松合并多个Excel表格的方法。希望这些方法能帮助你提高工作效率，节省时间。

-- 展开阅读全文 --