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

有很多相似的东西，但不完全是我的问题。 我试图根据选项卡名称的详细信息来命名每个选项卡的范围。 我已经将标签名称放在一个工作表中，现在要根据这些单元定义命名范围。 我不能让它喜欢我的范围名称与variables。

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

如果我有你的想法，我认为你所缺less的是functionWorksheets(sheetname)

正如你可以在这里看到的代码：

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