Question

我试图根据每个工作表中特定单元格的内容来命名每个工作表中的间隔。我查找了许多命名范围的方法，无论谁都不使用单元格的内容作为名称。这就是我所拥有的（但不起作用）：

Sub NameRanges()

Dim WS_Count As Integer
Dim I As Integer
Dim r As String

     WS_Count = ActiveWorkbook.Worksheets.Count


     For I = 5 To WS_Count

        r = Worksheets(I).Range("A2")
        Names.Add Name:="r", RefersTo:=Worksheets(I).Range("B6:B10000")


     Next I
End Sub

Answer 1

要命名工作表，只需使用其.Name属性，如下所示：

Sub NameSheets()
    Dim i As Integer
    With ActiveWorkbook
        For i = 5 To .Sheets.Count
            .Sheets(i).Name = .Sheets(i).Range("A2").Value
        Next i
    End with
End Sub

VBA-根据单元格值命名多个范围

1 个答案: