检查名称是否存在，不存在就增加

​以下是用VBA检查自定义名称ARow是否存在并增加的代码：

Sub CheckAndAddARow()

    Dim wb As Workbook

    Dim nm As Name

    Dim nameExists As Boolean

    Set wb = ThisWorkbook

    '检查自定义名称是否存在

    For Each nm In wb.Names

        If nm.Name = "ARow" Then

            nameExists = True

            Exit For

        End If

    Next nm

    '如果名称不存在，则增加名称

    If Not nameExists Then

        wb.Names.Add Name:="ARow", RefersTo:="=Sheet1!$A$1:$A$10"

    End If

End Sub

请注意，此代码假定自定义名称“ARow”引用工作表1中的单元格A1到A10。如果您需要引用不同的单元格范围，请相应地更改代码中的“RefersTo”参数。