arrays - 使用 excel vba 通过分隔符分割字符串同时忽略所述分隔符的某些实例的最有效方法

Question

我有一段非常多余的旧代码，是我第一次发现并决定学习 vba 时创建的(我已经走了很长一段路了)。我使用此代码循环遍历包含多个用逗号分隔的值的单元格。但是，在某些情况下，我不能简单地使用 Split(string,",") 函数，因为某些值在该值内包含逗号(示例值:[等等等等，等等等等])。在存在这些括号的情况下(它们围绕每个包含逗号的值)，我设计了一种相当冗长的方法，这是我的旧方法，用于正确拆分值，将它们转储到数组中，然后继续我的其他方法任务。但是，现在我决定重新审视代码并修复准确性。这是一些背景知识。

可以在一个单元格中找到的示例数据:
^{请注意:这是供应商发送给我们的数据，我们无法控制他们输入的内容或输入方式。这是一个简单的示例，展示了在某些情况下通常如何提供数据的要点}

Available on 2 sides: Silkscreen,[full: color, covers entire face],Pad Print: One color,[heat transfer, may bleed]

值为:

• 双面可用:丝印
• [全:颜色，覆盖整个脸部]
• 移印:一种颜色
• [热传递，可能会渗色]

我在寻找什么:
我正在寻找一种更有效、更简单的方法，以便能够正确分割值(同时保留包含它们的值的括号)。

我相信我已经成功创建了一种更高效、更紧凑的方法来处理不包含括号的实例，使用以下代码

新代码(正在 build 中):我遇到的问题是不知道如何有效且准确地用括号分割单元格

Sub Test()
    Dim rngXid As Range, RegularColons As New Collection, UpchargeColons As New Collection, additionals As Range, upcharges As Range, Colon, UpchargeColon
    Dim Values() As String, endRange As Long, xidMap As Object, xid As String, NumberofValues As Integer
    endRange = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

    Set xidMap = getXidMap(ActiveSheet.Range("A2:A" & UsedRange.Rows.Count)) 'Map products for quicker navigation
    Set additionals = ActiveSheet.Range("AJ:AK"): Set upcharges = ActiveSheet.Range("CS:CT")
    Set RegularColons = FindAllMatches(additionals, ":") 'This returns all instances/cells that contain a colon in the specified columns
    If Not RegularColons Is Nothing Then
        For Each Colon In RegularColons
            xid = ActiveSheet.Range("A" & Colon.Row).Value
            If InStr(1, Colon.Value, "[") = 0 Then 'If no brackets then simply split
                Values = Split(Trim(Colon.Value), ",")
            Else
                'This is where I'm at a lose for a more effective method
                '-----------Populate Values array with Colon.Value while watching out for brackets--------
            End If
            Set rngXid = xidMap(xid).EntireRow.Columns(upcharges) 'set to this specific product
            For ColorLocation = LBound(Values) To UBound(Values) 'cycle through each value in Values array
                If Not InStr(1, Values(ColorLocation), ":") = 0 Then 'Only proceed if the value has a colon
                    Set UpchargeColons = FindAllMatches(rngXid, Values(ColorLocation)) 'Searching other columns for this value
                    If Not UpchargeColons Is Nothing Then
                        For Each UpchargeColon In UpchargeColons 'If found in other columns proceed to replace colon
                            UpchargeColon.Value = Replace(UpchargeColon.Value, ":", " ")
                            Log UpchargeColon.Range, "Removed Colon from Additional Color/Location Upcharge", "Corrected" 'This is a custom sub of mine to record the change
                        Next UpchargeColon
                    End If
                    Values(ColorLocation) = Replace(Values(ColorLocation), ":", " ")
                End If
            Next ColorLocation
            Log Colon.Range, "Removed Colon(s) from Additional Color/Location Value(s)", "Corrected"
        Next Colon
    End If
End Sub

我一直在浏览可能的方法来做到这一点，其中最突出的是Regex，诚然我对此完全没有经验，尽管我以前听说过它。所以，我尝试使用像 this 这样的网站来阅读它。当然还有msdn documentation 。在尝试更多地了解此方法时，我的观察/想法是:

1. 这绝对是极其复杂和令人难以承受的。如此之多，以至于我不得不克制自己，不要爬到角落里，摆出胎儿的姿势，痛哭流涕。
2. 我似乎找不到任何东西可以表明我如何将此函数与我需要适当分割字符串的需求结合起来，至少就我所知是这样。但是，可能只是我对所有看似随机的符号序列感到不知所措

所以，我的问题是:
准确拆分包含括号的单元格中的值的最有效方法是什么？

Answer 1

还有其他方法，但这个正则表达式似乎相当快:

(\[[^\]]+\]|[^,]+),?

说明:

\[ 和 \] 是 [ 和 ]

的转义版本

本质上，它正在寻找 \[，获取所有非括号 [^\]]，然后是 \]。否则|，它将获取所有非逗号[^,]。周围的 () 使其成为一个捕获组。 ,? 表示可能有也可能没有逗号。