Excel VBA替换使用字符串查找和数组值替换

Question

只是寻求以下代码块的帮助。我在这里要做的是将包含在字母中的静态变量替换为相应的值。

代码旨在循环遍历一个表，并且对于列 [Variable] 下的每一行，将该变量的任何实例替换为“blankLetter”中的实例。也许这不是实现这一目标的最佳方式...

Public Function letterReplace(blankLetter As String, letterArray As Dictionary) As String
'Lookup the variable table and for each variable replace the instance of that in the array
Application.ScreenUpdating = False
Dim row As Range
Dim temp As String
For Each row In [varTable[Variable]].Rows
    'temp = "<PURVNAME>"
    temp = row.Value
    letterReplace = Replace(blankLetter, temp, letterArray(temp))
Next
Application.ScreenUpdating = True
End Function

以下工作正常：

letterReplace = Replace(blankLetter, "<PURVNAME>", letterArray("<PURVNAME>"))

但是这一行并没有替代任何东西：

letterReplace = Replace(blankLetter, temp, letterArray(temp))

我已经搜索过，但最终胜出。

任何帮助都会很棒。

标记

Answer 1

每次通过循环，您都对原始blankLetter 参数进行一次替换，并将结果放入letterReplace：只有最后一个替换操作会将其作为返回值从函数中取出。

您需要继续对同一个变量执行替换操作。

Public Function letterReplace(blankLetter As String, letterArray As Dictionary) As String
'Lookup the variable table and for each variable replace the 
'   instance of that in the array

    Dim row As Range, retVal As String
    Dim temp As String

    retVal = blankLetter
    For Each row In [varTable[Variable]].Rows
        temp = row.Value
        retVal  = Replace(retVal, temp, letterArray(temp))
    Next

    letterReplace = retVal
End Function