急求excel合并方法/工具

发布网友发布时间：2022-04-26 08:24

我来回答

共4个回答

热心网友时间：2022-06-25 19:03

首先，打开需要合并的工作簿。

里面有多张Sheet，在最后1张Sheet后，插入一张新Sheet

用来合并前面所有的Sheet，不妨命名为“合并”

在Excel中按下Alt+F11，打开VBE宏编辑器

或者，点击“开发工具”，宏

录制宏，然后编辑宏。

复制粘贴下列VBA代码

Sub merge_zzllrr()
    Dim s, sht, shts
    Set shts = Sheets("合并")
    shts.Cells.Clear
    Sheets(1).Range("A1:F1").Copy shts.Range("A1:F1")
    For i = 1 To Sheets.Count - 1
        Set sht = Sheets(i)
        sht.Range("A2:G" & sht.Columns(1).Find("*", , , , 1, 2).Row).Copy shts.Range("A" & (shts.Columns(1).Find("*", , , , 1, 2).Row + 1))
    Next i
End Sub

然后按下快捷键F5执行，即可。

热心网友时间：2022-06-25 19:04

我用2012 版本的，我的的方法是导入数据按数据在按导入数据直接打开数据文件选择数据来源在选择你要合并的文件

热心网友时间：2022-06-25 19:04

给你发一个工具，到我的百度网盘下载一下

热心网友时间：2022-06-25 19:05

按ATL+F11，插入模块，粘贴以下代码，然后F5运行

Sub HEBING()
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
k = Sheets(i).[b65536].End(xlUp).Row
Sheets(i).Range("a2:h" & k).Copy Sheets(1).Range("a" &[b65536].End(xlUp).Row).Offset(1, 0)
Next
Sheets(2).[a1:d1].Copy Sheets(1).[a1:d1]
Application.ScreenUpdating = True
End Sub