使用 VBA 替换公式字符串中的变量字母

Question

我有如下所示的 Excel 公式

示例 1

=SUMIF('TRx Wkly NT'!$A:$A,"AdderAKl* XR*",'TRx Wkly NT'!BS:BS)/10^3

示例 2

=SUMIF('TRx Wkly NT'!$A:$A,"amphe* ER* prasco*",'TRx Wkly NT'!BS:BS)/10^3+SUMIF('TRx Wkly NT'!$A:$A,"amphe* ER* teva*",'TRx Wkly NT'!BS:BS)/10^3

示例 3

=SUM('Baseline Trx Wkly NT'!BS:BS)/1000-SUM(PX29,PX73,PX108)/1000

在这些公式中，“BS:BS”指的是整个列。我需要一个用 VBA 替换 "BS:BS" 和 "ColumnLetterVariable:ColumnLetterVariable" 的子

我如何实现这一目标？我什至不知道从哪里开始。我使用正则表达式吗？

问题 1：我不知道我要替换什么。 “BS:BS”不是常数；它一直在变化。可以是一天AA:AA，也可以是第二天Z:Z等单个字母。 VBA 需要一种方法来识别字符串的Column:Column 部分

问题 2：“BS:BS”可能出现在公式中的多个位置，例如示例 2。所有这些都需要替换为我的 VBA 变量。

编辑：示例公式的$A:$A 部分不需要替换。只是BS:BS 部分，它一直在变化。

Answer 1

试试这段代码——我认为你可以使用正则表达式来解决你的问题（所有 cmets 和模式解释都在代码中）：

Sub RegexTest()
    Dim regex As Object, result As String, pattern As String, replacement As String
    Set regex = CreateObject("VBScript.RegExp")
    ' Define inputs: pattern and replacement value
    pattern = "!([A-Z]+):(\1)"
    ' Pattern explanation: match exclamation mark (!) literally, then match one or more capital letters: [A-Z]+,
    ' those captured letters will  be in capturing group defined with brackets (),
    ' then match semicolon (:), then match exact same text that was captured in first group
    replacement = "Column:Column"
    ' Test function
    result = RegExReplace("TRx Wkly NT'!$A:$A,""AdderAKl* XR*"",'TRx Wkly NT'!BS:BS)/10^3", pattern, replacement)
    MsgBox result
    result = RegExReplace("TRx Wkly NT'!$A:$A,""amphe* ER* prasco*"",'TRx Wkly NT'!BS:BS)/10^3+SUMIF('TRx Wkly NT'!$A:$A,""amphe* ER* teva*"",'TRx Wkly NT'!BS:BS)/10^3", pattern, replacement)
    MsgBox result
    result = RegExReplace("Baseline Trx Wkly NT'!BS:BS)/1000-SUM(PX29,PX73,PX108)/1000", pattern, replacement)
    MsgBox result
End Sub
Function RegExReplace(inputString As String, pattern As String, replacement As String) As String
    ' We need to create RegExp object to use regular expressions
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.pattern = pattern
    RegExReplace = inputString
    ' Since Replace method replaces one value at a time, you need to replace it until no more matches are found
    Do
        RegExReplace = regex.Replace(RegExReplace, "Column:Column)")
    Loop While regex.Test(RegExReplace)
End Function