如何快速将excel中单个表格汇总到一个表格中

y15855557831

如何实现后面14个工作表内容快速纵向复制到本表中

aidunsoft

附件.zip (119.84 KB, 下载次数: 1)

2021-5-20 09:25 上传

点击文件名下载附件

y15855557831

aidunsoft 发表于 2021-5-20 09:26

你的是什么版本的  能给个安装包

aidunsoft

y15855557831 发表于 2021-5-20 09:37
你的是什么版本的  能给个安装包

需要安装艾敦制表神器插件才能实现，在www.aidunsoft.com 上下载

y15855557831

aidunsoft 发表于 2021-5-20 09:39
需要安装艾敦制表神器插件才能实现，在www.aidunsoft.com 上下载

收费不

aidunsoft

y15855557831 发表于 2021-5-20 09:42
收费不

免一个月，先完成你自己的工作再说，愿不愿意付钱，就看你能不能找到更好的替代方案

风林火山

Sub 合并()
    Dim sh As Worksheet
    Dim k As Long
    Dim n As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    Worksheets.Add(before:=Worksheets(1)).Name = "合并"
   
    For Each sh In Worksheets
        If sh.Name = "合并" Then GoTo 1
            k = Worksheets("合并").Range("a65536").End(xlUp).Row
            n = sh.Range("a65536").End(xlUp).Row
            sh.Range("1:" & n).Copy
            Worksheets("合并").Range("a" & k + 1).Select
            ActiveSheet.Paste
1:
    Next sh
   
    Columns("A:G").EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

y15855557831

风林火山 发表于 2021-5-20 14:58
Sub 合并()
    Dim sh As Worksheet
    Dim k As Long

代码我复制到哪  能录个视频不

aidunsoft

y15855557831 发表于 2021-5-20 15:32
代码我复制到哪  能录个视频不

你代码还不知道复制到哪里，录视频也没有什么意义，看来你只适合用插件傻瓜式操作，VBA对你来说有点难度，还是菜鸟一个

bridgeyao

Sub hebing()
Dim sh, i
    For Each sh In Worksheets
       i = Sheets("合并1").Range("a65536").End(3).Row
       If sh.Name <> "合并1" Then sh.UsedRange.Copy Sheets("合并1").Range("a" & i + 2)
    Next
    MsgBox "已合并" & Sheets.Count - 1 & "个表格"
End Sub
已在”合并1“添加按钮