excel - 使用命名范围循环工作表

Question

我有一个由 30 个字符串值编译而成的命名范围。每个字符串值也用作工作表的名称。我想知道是否可以遍历范围中的每个字符串来编辑它各自的工作表。我经历了一些试验和错误，但仍然卡住了。任何帮助将不胜感激。

Option Explicit

Sub NamedRanges()

Dim ws As Worksheet
Dim rng As Variant

rng = Sheets("Teams").Range("TeamList_Full")

For Each ws In rng
    ws.Range("A36").Value2 = 2
    Next ws

End Sub

Answer 1

你可以这样做:

Sub NamedRanges()

    Dim c As Range
    
    For Each c In ThisWorkbook.Worksheets("Teams").Range("TeamList_Full").Cells
        ThisWorkbook.Worksheets(c.Value).Range("A36").Value2 = 2
    Next c

End Sub