请增加自动提取工作表名称的VBA代码

Sub huizong()
    ActiveSheet.Range("b54:ao200").ClearContents '清除b54:ao200内容
    Dim sh As Worksheet,r,r2
    For Each sh In Sheets
        If InStr(sh.Name, "汇总") = 0 Then
            With sh
                r = .Cells(Rows.Count, 8).End(3).Row
                r2 = Sheets("汇总").Cells(Rows.Count, 8).End(3).Row
                Sheets("汇总").Range("a" & r2 + 1).resize(r-53,1) = .name
                .Range("a54:ao" & r).Copy Sheets("汇总").Range("b" & r2 + 1)
            End With
        End If
    Next
End Sub

你要提取sheet名？很简单，一个循环就搞定了

不懂不是这专业

ActiveSheet.Range("b54:ao200").ClearContents '清除b54:ao200内容