如何在 vba 中引用名称不同的工作表名称

Question

我正在尝试使用 vba 引用具有通用名称和唯一编号的工作表范围，以在每个工作表上明确范围。但我收到 1004 错误。

For lngWeek = 1 To 53
    strSheet = "Week" & Trim(Str(lngWeek))
    strRange = strSheet & "!B5:H7"
    Range(strRange).Activate
Next

工作表是 Week1、Week2 等，我需要清除每张工作表上的 B5:H7 范围。从第 1 周到第 53 周。

为什么 Range.Activate 无法选择每个页面？

Answer 1

您在此处收到错误 1004：

Range(strRange).Activate

因为strRange 是工作表限定的，但Range 不是；这是一个implicit ActiveSheet reference，这意味着Range.Activate 成员调用只能在strRange 引用一个已经在ActiveSheet 上的单元格时起作用。建议：将strRange 重命名为cellAddress 或其他真正有意义的名称。 "str"-for-String 没用； “哦，那是一个地址”是 ;-)

为了能够选择特定的Range，您必须首先取消引用您要使用的Worksheet 对象 - 其中sheetName 包含工作表的名称：

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(sheetName)

然后strRange 地址不再需要WeekXX! 部分：

ws.Activate
ws.Range("B5:H7").Select

请注意，除非是为了方便用户，否则通常几乎没有理由在 VBA 中使用 Select 或 Activate 任何内容：当您正确限定正在使用的所有对象时，您将不会当 ActiveSheet 不是您的代码假定处于活动状态的工作表时出现错误 1004，因为代码将不再假定工作表处于活动状态。

Answer 2

如果您想清除名称为“Week#”形式的任何工作表中的相同范围，您可以处理所有工作表，并且只对名称与正确格式匹配的工作表进行操作。

Sub ClearSpecial()
Dim ASheet As Worksheet
Dim ToClear As Boolean

For Each ASheet In ActiveWorkbook.Worksheets
    ToClear = Left(ASheet.Name, 4) = "Week" ' add more conditions if needed
    If ToClear Then
        ASheet.Range("B5:H7").ClearContents
    End If
Next ASheet

End Sub

例如，如果还有一个名为“每周摘要”的工作表，您可以扩展您的测试以排除它。