用VBA合并多个表格方法

jmtdw

大师好！我手中有一个工作薄，里面有60个工作表，需要合并到一个工作表中，由于使用的Office是2010版，只好想用VBA进行合并，请大师帮助，谢谢！

limonet

群内有很多答案，搜索能满足你的要求。

陆离Lowry

3190496160

Sub 合并()
Dim ar As Variant
Dim br()
ReDim br(1 To 50000, 1 To 7)
For Each sh In Sheets
    If sh.Name <> "合并" Then
        r = sh.Cells(Rows.Count, 2).End(xlUp).Row
        ar = sh.Range("a1:g" & r)
        For i = 1 To UBound(ar)
            If Trim(ar(i, 2)) <> "" Then
                n = n + 1
                br(n, 1) = n
                For j = 2 To UBound(ar, 2)
                    br(n, j) = ar(i, j)
                Next j
            End If
        Next i
    End If
Next sh
With Sheets("合并")
    .[a1].CurrentRegion.Offset(4).Clear
    .[a5].Resize(n, UBound(br, 2)) = br
    .[a5].Resize(n, UBound(br, 2)).Borders.LineStyle = 1
End With
MsgBox "合并完毕！"
End Sub

3190496160

合并多表.rar (397.26 KB, 下载次数: 19)

2022-11-23 10:19 上传

点击文件名下载附件

ykcbf1100

参与一下。
刚才回看代码，发现有点问题，现更新一下代码。

jmtdw

感谢各位大师！