VBA 命名范围检查名称是否存在的最有效方法

在 VBA 中，我们经常需要检查命名范围中是否存在特定名称。这在处理大型工作簿或自动化任务时尤为重要。因此，我们需要找到一种高效的方法来进行这个检查。本文将介绍一种最有效的方法，并提供一个案例代码来演示其用法。

Sub CheckNameExistence()
    Dim wb As Workbook
    Dim name As Name
    Dim nameToCheck As String
    Dim nameExists As Boolean
    
    ' 设置要检查的名称
    nameToCheck = "MyName"
    
    ' 获取当前活动工作簿
    Set wb = ActiveWorkbook
    
    ' 遍历 Names 集合
    For Each name In wb.Names
        ' 检查名称是否存在
        If name.Name = nameToCheck Then
            nameExists = True
            Exit For
        End If
    Next name
    
    ' 显示结果
    If nameExists Then
        MsgBox "名称已存在！"
    Else
        MsgBox "名称不存在！"
    End If
End Sub