多sheet合并求助

chxjchen

各位大神，自己做了个多sheet合并的宏，实际运行，会将工作表”30” L列的和汇总进去，帮忙看看需要怎么修改，将L列的和去掉，谢谢！
    工作表1-工作表30 都会有这个和，都不需要合并进去。


      工作表如附件，里面已经附了代码。

liulang0808

加了一段清空的代码

于箱长

改这里

chxjchen

于箱长 发表于 2023-1-4 09:33
改这里

你的意思应该是让我选取非空的行吧， 没整明白需要怎么调整

3190496160

Sub 多表汇总()
With Sheets("汇总表")
    .UsedRange.Clear
    For Each sh In Sheets
        If IsNumeric(sh.Name) Then
            m = m + 1
            r = sh.Cells(Rows.Count, 1).End(xlUp).Row
            If m = 1 Then
                sh.Range("a1:p" & r).Copy .[a1]
            Else
                If r > 1 Then
                    rs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                    sh.Range("a2:p" & r).Copy .Cells(rs, 1)
                End If
            End If
        End If
    Next sh
End With
ActiveWorkbook.Save
MsgBox "合并完成"
End Sub

3190496160

11111.rar (1.36 MB, 下载次数: 9)

2023-1-4 10:28 上传

点击文件名下载附件

蓝桥玄霜

汇总的例子：