计算excel vba中命名范围的数量

Question

我在一张表中有16个命名范围。这个数字可以更改。我想用数字来决定幻灯片的数量。

Answer 1

B由于混合了"Workbook"one_answers"Worksheet"范围的命名范围，因此您的解决方案必须有点巧妙。基本上，工作表中的9个命名范围不属于它们所在的工作表。它们属于整个工作簿。

为此，您可以循环浏览所有命名区域，并查看工作表是否作为命名区域地址的一部分进行命名。根据你的工作表名称，这可能需要一些调整，但它会让你大致进入：

Sub countNamedRanges()
Dim nm As Name
Dim nameCount As Integer
'loop through all names in the workbook
For Each nm In ThisWorkbook.Names
If Split(nm.RefersTo, "!")(0) = "=Sheet1" Then nameCount = nameCount + 1
Next
Debug.Print nameCount
End Sub