获取工作表中的所有名称信息，用VBA只需要这几行代码

　　Excel中的名称，就是被命名的公式，可以在名称管理器中看到它们。

　　找到这些名称信息不是困难的事，但是当工作簿中存在大量的名称时，再查阅或了解其中的信息，使用名称管理器可能会显得不那么方便。

　　对的，你猜到了，我们可以用VBA来获得Excel工作簿中所有的名称信息，代码如下。

Sub 获取名称信息() Dim Sht As Worksheet, C As Name Set Sht = ActiveSheet '假设要获取活动工作表中的名称 On Error Resume Next For Each C In Names Sht.Range('A' & Rows.Count).End(xlUp)(2) = C.Name Sht.Range('B' & Rows.Count).End(xlUp)(2) = ''' & C.RefersTo Next C On Error GoTo 0End Sub

        这样，只需要执行这些代码，就能将活动工作表中所有名称信息全部写入工作表的A、B两列了。

关注Excel笔记，学更多Excel技巧！