如何根据表名称和具有IDS的ID替换公式文本，以固定的列名称

Question

我必须根据所需的ID替换公式文本（始终在B列中），具体取决于所引用的表格名称，如下所示，附有附件的Excel的屏幕截图（所需的输出以黄色突出显示），

例如。公式：= node！a2 * comp！a2
新单元格中所需的输出：[n1] * [C1]

随附的屏幕截图，

< img src =“ https://i.sstatic.net/7epbj.png” alt =“在此处输入图像说明”>

编辑 - 我尝试了以下事情， 1]在结果表上添加了1个按钮 2]单击它，称为宏的代码如下

Sub Button1_Click()

Dim formulaVal As String
Dim str1 As String
Dim str12 As String

formulaVal = Range("A2").Formula
Debug.Print formulaVal
'MsgBox Range("J2").Value2

str1 = Replace(formulaVal, "!A", "!B")
Debug.Print str1

'ActiveSheet.Range("E2").Formula = strl
ActiveSheet.Range("E2").Formula = "=Node!B2*Comp!B2"
'MsgBox Range("u2").Value
strl2 = Range("E2").Formula

Debug.Print strl2
End Sub

3]在按钮单击“获取所需公式”之后，它显示错误数据类型不匹配，因为引用的数据是字符串，该字符串与公式

不兼容，请建议替代解决方案，如果任何

Answer 1

您可以在B2中使用此公式并将其拉下来：

="n"&VALUE(MID(FORMULATEXT(A2),8,FIND("*",FORMULATEXT(A2))-8))-1 & "*c" & VALUE(MID(FORMULATEXT(A2),FIND("Comp!A",FORMULATEXT(A2))+6,10))-1

Answer 2

如果您有Windows环境＆amp; Office 365您可以使用以下内容：

=LET(split,FILTERXML("<a><b>"&SUBSTITUTE(SUBSTITUTE(FORMULATEXT(A1),"=",""),"*","</b><b>")&"</b></a>","//b"),
        char,LOWER(LEFT(split,1)),
        row,MID(split,FIND("!A",split)+2,LEN(split))-1,
"="&TEXTJOIN("*",1,char&row))

FilterXml（）用于在每个*上将文本分开。
拆分的结果用于获取第一个字符（并将其更改为较低的情况），并在！a后面找到字符串，这是行号（并从中提取1）。
然后textjoin（）加入计算的字符和行号，并在每个字符之间放置*。

ps如果a1是实际公式，而不是替换a1，form> formulatext（a1）

（有关FilterXml的更多信息可以在JVDV的这篇文章中找到： https://stackoverflow.com/a/61837697

）这仅提供了现在问题的部分答案。答案是基于：