Question

有很多类似但不完全是我的问题。我正在尝试根据选项卡名称的详细信息来命名每个选项卡的范围。我已将选项卡名称放在一个工作表中，现在想要根据这些单元格定义命名范围。我不能用变量来表示我的范围名称。

Sub Test()

    Dim x As Integer
    Dim y As String
    Dim YY As String
    Dim z As String
    Dim ZZ As String

    For x = 1 To Worksheets.Count

    Sheets("List of Tab Names").Activate

    y = Cells(x, 1).Value
    z = Cells(x, 2).Value
    YY = y & "Data2"
    ZZ = z & "YoA2"


    Sheets(y).Activate

    Range("C9:BG233").Name = " ' " & YY & " ' "
    Range("C7:BG7").Name = " ' " & ZZ & " ' "

    Next x

End Sub

Answer 1

您不需要围绕范围名称的单引号。试试吧：

Range("C9:BG233").Name = YY
Range("C7:BG7").Name = ZZ

Answer 2

如果我的想法是正确的，我认为你所缺少的是函数Worksheets(sheetname)

正如您在此处的代码中所看到的那样：

Range("A1:A5").Name = Worksheets("Sheet2").Range("A1")

为每个工作表创建命名范围列表

2 个答案: