[已解决]如何导出工作表内的所有定义名称

张雄友

如何导出工作表内的定义名称？按 ctrl + F3 , 会看到定义的名称，但我想将其全部导出来，怎么实现？

最佳答案

月排行榜 / 总排行榜

xdragon

2014-9-11 19:43

1. Sub t()
   
2.    Dim n As Name, arr$(),cnt%
   
3.    ReDim arr(ThisWorkbook.Names.Count, 1 To 2)
   
4.    arr(0, 1) = "定义的名称"
   
5.    arr(0, 2) = "引用区域"
   
6.    For Each n In ThisWorkbook.Names
   
7.       cnt = cnt + 1
   
8.       arr(cnt, 1) = n.Name
   
9.       arr(cnt, 2) = n.RefersTo
   
10.    Next
    
11.    Range("G1").Resize(UBound(arr) + 1, 2) = arr
    
12. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub t()
   
2.    Dim n As Name, arr$(),cnt%
   
3.    ReDim arr(ThisWorkbook.Names.Count, 1 To 2)
   
4.    arr(0, 1) = "定义的名称"
   
5.    arr(0, 2) = "引用区域"
   
6.    For Each n In ThisWorkbook.Names
   
7.       cnt = cnt + 1
   
8.       arr(cnt, 1) = n.Name
   
9.       arr(cnt, 2) = n.RefersTo
   
10.    Next
    
11.    Range("G1").Resize(UBound(arr) + 1, 2) = arr
    
12. End Sub

复制代码

易安1

1. Sub test()
   
2. Dim iname, arr(1 To 10000, 1 To 2)
   
3. For Each iname In ThisWorkbook.Names
   
4.     k = k + 1
   
5.     arr(k, 1) = iname.Name
   
6.     arr(k, 2) = iname.RefersToR1C1
   
7. Next
   
8. [g2].Resize(k, 2) = arr
   
9. End Sub
   

复制代码

易安1

{:22:}

张雄友

易安1 发表于 2014-9-11 19:47

红色代码是多余的
arr(k, 2) = iname.RefersToR1C1
，所以......

张雄友

xdragon 发表于 2014-9-11 19:43

如果不是当前工作表，而是整个工作簿的名称呢？

xdragon

张雄友 发表于 2014-9-11 20:06
如果不是当前工作表，而是整个工作簿的名称呢？

这个就是整个工作簿的名称啊，同一工作表的所有名称都能导出的。

易安1

张雄友 发表于 2014-9-11 20:03
红色代码是多余的
arr(k, 2) = iname.RefersToR1C1
，所以......

不知道你怎么理解的 多余的我就不写了

易安1

哎……无爱了，难道我的代码就这么差吗{:231:}

whyyvonne

零基础怎么挣积分，学习，求教