Question

我有一本工作簿，其中包含美国每个州的工作表。

我想遍历每个工作表，并为表中的数据分配一个命名范围作为工作表名称。

现在，我将它设置为遍历每张纸的位置，跳过我希望它跳过的纸，并设置适当的范围。但是，最终为第一张图纸创建了50个命名范围。

Sub Sheetloop()
Dim ws As Worksheet
Dim rng As Range
Dim ws_name As String
For Each ws In Worksheets
    If ws.Name <> "GA_AVERAGE" Then
       ws_name = ws.Name
       Set rng = Range("A2:N" & Range("A" & Rows.Count).End(xlUp).Row)
       rng.Name = ws_name
    End If
Next
End Sub

我希望每个工作表在工作表中的数据上都有各自的命名范围。

Answer 1

您并非每次都引用表格，所以您需要。

Promise { 'user1' }

遍历工作表，并将工作表范围的命名范围分配给工作表名称

1 个答案: