用相应单元格中的字符串替换单元格引用

Question

我有计算单元格。

这是一个简单的例子，在第 11 行。

=$V11*$AB11*AF11

我正在努力解决这个问题：

=[EAD: On Balance Sheet]*[PD Low]*[Collateral LGD High]

这 3 个字符串都来自第 10 行，即 V、AB 和 AF 列。

这是另一个例子：

改变这个：

=$V11*VLOOKUP($AA11,Rates!AQ:AU,5,FALSE)*AE11

到这里：

'[EAD: On Balance Sheet]*VLOOKUP([Proposed Risk Rating],Rates!AQ:AU,5,FALSE)*[Collateral LGD Low]

所有公式都在第 11 行，我想从第 10 行获取相应的标题，这些标题都是字符串。

我认为必须有办法做到这一点，因为 Excel 知道所有相关的单元格引用，并跟踪所有内容。

我不知道如何用字符串替换引用（在本例中是第 10 行中的相应标题）。

Answer 1

我对此很陌生，因此没有足够的“声誉”来评论和澄清您的问题。 如果单元格 V11、AB11 和 AF11 具有文本“EAD：在资产负债表上”、“PD Low”和“Collat​​eral LGD High”，并且您希望此单元格显示这些词。 那么下面的代码就可以工作了：

sub combine_words()
dim i as string
dim j as string
dim k as string

i = range("V11").value
j = range("AB11").value
k = range("AF11").value

range("A11").value = "[" & i & "]*[" & j & "]*[" & k & "]"

end sub

将单元格 A11 替换为您希望输入文本的单元格。

如果我对您的问题的理解有误，请告诉我，如果可以的话，我会更改代码以满足您的需求。

Answer 2

也许在公式中进行简单的查找和替换就足够了。我敢肯定有很多我没有考虑过的边缘情况。希望这能引导对话朝着正确的方向发展。

Sub SOExample()
    Dim mySheet         As Worksheet: Set mySheet = ThisWorkbook.Sheets("Sheet1")
    Dim headerRng       As Range: Set headerRng = mySheet.Range("A1:J1") 'Specify where to do replacements
    Dim mycell          As Range
    Dim vkey            As Variant
    Dim myDict          As Object: Set myDict = CreateObject("Scripting.Dictionary")

    'Iterate each header row add the address as the key, and the NEXT row's Text as the value
    For Each mycell In headerRng
        If Not myDict.exists(mycell.Offset(1, 0).Address) Then
            myDict.Add mycell.Offset(1, 0).Address, mycell.Text
        End If
    Next

    'Iterate each cells formula and replace it
    For Each mycell In headerRng
        For Each vkey In myDict.keys
            mycell.Offset(1, 0).Formula = Replace(mycell.Offset(1, 0).Formula, vkey, myDict(vkey), , , vbTextCompare)
        Next
    Next

End Sub