如何引用得到单元格的自定义名称

keleccy

如题，见附件，谢谢！

fengetianxia1

=项目            

keleccy

fengetianxia1 发表于 2018-3-9 12:59
=项目

我不是这个意思，是想用哪个函数可以得到：C2=函数(B2)，使C2单元格得到B2单元格的自定义名称“项目”

keleccy

fengetianxia1 发表于 2018-3-9 12:59
=项目

有没有这种函数或公式，可以得到：C2=函数(B2)，使C2单元格得到B2单元格的自定义名称“项目”。
或者用VBA方法，谢谢！

keleccy

好像没有相关公式。找到一个VBA办法，如下：

1. Function MC(Rng As Range) As String
   
2. '获取单元格（区域）的自定义名称
   
3.     Application.Volatile
   
4.     Dim n As Name
   
5.     On Error Resume Next
   
6.     tRng = Rng.Address(External:=True)
   
7.     tRng = Right(tRng, Len(tRng) - Application.Find("]", tRng))
   
8.     tRng = "=" + tRng
   
9. 
   
10.     For Each n In ActiveWorkbook.Names
    
11.         If tRng = n Then
    
12.             MC = n.Name
    
13.             Exit Function
    
14.         End If
    
15.     Next n
    
16. End Function

复制代码