将公式分配给与特定单元格相关的名称(名称管理器)

Assign formula to Name relating to certain cell (Name Manager)

我尝试通过 VBA 将公式分配给这样的名称(图片):

我知道手动怎么实现,但是宏怎么实现呢?

公式与单元格有关(并非所有链接都已锁定,当您手动操作时,您必须关注选定的单元格),这是将其投影到的最复杂的事情VBA.

有这段代码,帮我开始了:

Sub auto()
ThisWorkbook.Sheets("SF_{} {RU04}").Cells(204, 15).Select
ThisWorkbook.Names.Add Name:="Sometotal", _
RefersTo:="=IFERROR(VLOOKUP(H168,GIT!$M:$N6,2,0),0)"
End Sub

编辑: 我根据已接受的答案和评论中的指导解决了我的问题。

请尝试以下操作:

Sub NameRange_Add()    
    Dim RangeName As String        
    RangeName = "Sometotal"
    
    ThisWorkbook.Names.Add Name:=RangeName, RefersToR1C1:="=IFERROR(VLOOKUP(R168C8,GIT!R93C13:R126C14,2,0),0)"    
End Sub