我在一个工作表中有16个命名范围。这个数字可以更改。我希望这个数字决定PowerPoint中幻灯片的数量。
z332150607 回答：计算Excel VBA中命名范围的数量
因为在“工作簿”和“工作表”范围内的命名范围之间混合使用，所以您必须对解决方案有所了解。基本上，工作表中的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