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

2024-11-15 22:19:21
推荐回答(4个)
回答1:

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

回答2:

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

回答3:

不懂不是这专业

回答4:

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