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

发布网友 发布时间：2022-04-25 10:24

我来回答

共4个回答

热心网友 时间：2023-12-04 01:55

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

热心网友 时间：2023-12-04 01:56

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

热心网友 时间：2023-12-04 01:56

不懂不是这专业

热心网友 时间：2023-12-04 01:57

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