请增加自动提取工作表名称的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内容