excel合并多个工作表_快速将多个Excel表格合并成一个Excel表格

本文详细介绍了如何快速合并Excel表格,包括使用PowerQuery、CMD命令及第三方插件方方格子的方法。无论是合并多个Excel文件到一个文件,还是合并一个文件内的多个工作表,都有具体步骤讲解,帮助用户高效完成任务。
摘要由CSDN通过智能技术生成

f7cad0d0dbea9d23c379cbf2afa1f642.gif

之前在微信群内有朋友问我如何快速将多个Excel表格合并成一个Excel表格,当时没有讲解清楚,今天专门来告诉大家如何快速合并Excel表格到一个工作表中。

在合并表格中,不外乎以下两种情况:

将多个Excel表格文档合并成一个Excel表格

将一个Excel文档中多个工作薄合并成一个工作薄

下面我们分情况,来讲解快速合并的方法

一、将多个Excel表格文档合并成一个Excel表格

场景描述:如图所示,在文件夹中,有4个Excel文件,每个Excel文件的数据格式都一致,需要把4个Excel文件合并到1个Excel文件中。

29c71d82d2462c5b57d24563baa06fe0.png

  • 0
    点赞
  • 14
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
可以使用VBA中的Dictionary对象和Worksheet对象来实现这个功能。具体步骤如下: 1. 创建一个新的excel表格,用于合并数据。 2. 在VBA编辑器中创建一个新的模块,编写以下代码: ``` Sub MergeData() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") Dim wb As Workbook Set wb = ThisWorkbook Dim wsMerge As Worksheet Set wsMerge = wb.Sheets(1) Dim ws As Worksheet For Each ws In wb.Worksheets If ws.Name <> wsMerge.Name Then Dim lastRow As Long lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row Dim i As Long For i = 2 To lastRow Dim name As String name = ws.Cells(i, 1).Value If Not dict.exists(name) Then dict.Add name, ws.Cells(i, 2).Value Else dict(name) = dict(name) + ws.Cells(i, 2).Value End If Next i End If Next ws wsMerge.Cells(1, 1).Value = "员工姓名" wsMerge.Cells(1, 2).Value = "工资总额" Dim j As Long j = 2 For Each key In dict.keys wsMerge.Cells(j, 1).Value = key wsMerge.Cells(j, 2).Value = dict(key) j = j + 1 Next key End Sub ``` 3. 在代码中,首先创建一个Dictionary对象,用于存储每个员工的工资总额。然后遍历所有的工作,对于每个工作,从第二行开始遍历每一行,将每个员工的工资累加到Dictionary对象中。最后将结果写入新建的表格中。 4. 运行代码,即可将多个excel表格根据相同的“员工姓名”合并一个excel。 需要注意的是,代码中假设员工姓名在第一列,工资在第二列。如果实际情况不同,需要修改代码中的行号和列号。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值