excel学习库

如下图所示，我们选中A2:C6单元格区域，并在左上角的名称框输入fz_hbzj，这样就新建了一个名称。

1.新增名称

Sub 新增名称()
    Dim nm As Name
    Set nm = ActiveWorkbook.Names.Add(Name:="fz_hbzj", RefersToR1C1:="=Sheet1!R2C1:R6C3")
    nm.Visible = True
End Sub

2.删除工作簿的所有名称

Sub 删除工作簿的所有名称()
    Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        nm.Delete
    Next
End Sub

3.批量获取名称的相关属性

Sub 批量获取名称的相关属性()
    Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        '获取名称
        Debug.Print (nm.Name)
        '获取批注文本
        Debug.Print (nm.Comment)
        '获取名称是否可见
        Debug.Print (nm.Visible)
    Next
End Sub