怎样将一个EXECL文件中的所有Sheet表合并在同一个SHeet表中

shiruiqiang

修改了一下，“汇总”里金额放在同一列算了

jcmyygy

非常感谢！

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1662588&&_dsign=236fc179

安瀞の小新

同意9楼的说法，合并单元格。。。。

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim iRow&, wks As Worksheet
    For Each wks In Sheets
        If wks.Name <> "汇总" Then
            iRow = Cells(Rows.Count, "B").End(xlUp).Row + 1
            With wks
                 Range(.[B2], .Cells(Rows.Count, "L").End(xlUp)).Copy Cells(iRow, 2)
            End With
        End If
    Next
End Sub

gwjkkkkk

请参考。。。

jcmyygy

感谢各位老师的指导，一并谢谢！

jjmysjg

shiruiqiang 发表于 2023-7-14 14:40
修改了一下，“汇总”里金额放在同一列算了

非常精湛，先留个记号

jcmyygy

老师，就是在同一文件夹中把不同的EXECL文件，合并到一张新的工作表，【下图中将多个文件内容，合并到一个SHEET工作表中】！谢谢各位大伽！

ykcbf1100

jcmyygy 发表于 2024-5-30 15:09
老师，就是在同一文件夹中把不同的EXECL文件，合并到一张新的工作表，【下图中将多个文件内容，合并到一个S ...

你上传附件啊，光图片没用。