VBA 中的正则表达式组中的正则表达式

Question

我来自这个问题： How to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loops

在那里找到了这个非常有用的链接： https://www.experts-exchange.com/articles/1336/Using-Regular-Expressions-in-Visual-Basic-for-Applications-and-Visual-Basic-6.html

这就是我将用于功能的，因为我需要在 VBA 中执行此操作。 但是，我试图解决的正则表达式如下所示：

OR(Q12 = "YES", Q13 = "ABCD", Q2 <> 3)

它总是只有OR function

我的 excel 工作表中有 2 列，如下所示：

Table1
    ColA   ColB
    Q1     YES
    Q2     2
    Q12    YES
    Q13    ABCD

所以我想先做n组：

Group1: Q12 = "YES"
Group2: Q13 = "ABCD"
Group3: Q2 <> 3

然后，我必须通过再次执行正则表达式来处理每个这样的组，这将给我：

Group1-1: Q12
Group1-2: =
Group1-3: YES

然后我将在 VBA 代码中进行VLOOKUP(Q12, Table1, 2, FALSE) 。 如果Group1-2是“=”，则= ，否则<> Group1-3

这将意味着 Group1 = 1 同样适用于所有 n 个组

TLDR：

输入：

OR(Q12 = "YES", Q13 = "ABCD", Q2 <> 3)

Output：

Group1-1: Q12
Group1-2: =
Group1-3: "YES"

Group2-1: Q13
Group2-2: =
Group2-3: "ABCD"

Group3-1: Q2
Group3-2: <>
Group3-3: 3

非常感谢！

Edit1：嘿，而不是 Hye

Answer 1

根本不需要使用正则表达式:) 只需删除逗号并按空格分隔：

Sub NoRegex()
    Dim str As String, splitted() As String
    str = "OR(Q12 = ""YES"", Q13 = ""ABCD"", Q2 <> 3)"
    str = Replace(Replace(Replace(Replace(str, ",", ""), "OR", ""), ")", ""), "(", "")

    splitted = Split(str, " ")
End Sub

你将把所有的块放在一个数组中:)