excel - 拆分，转义某些拆分

Question

我有一个包含多个问题和答案的单元格，其组织方式类似于 CSV。因此，为了将所有这些问题和答案分开，使用逗号作为分隔符的简单拆分应该很容易分开。

不幸的是，有些值使用逗号作为小数分隔符。有没有办法避免这些事件的 split ？

幸运的是，我的数据可以使用“，”作为分隔符进行拆分，但如果不是这种情况，除了手动将小数分隔符从逗号替换为点之外，还有其他解决方案吗？

例子:

“价格:0,09，数量:12，已售:是”
使用 Split("Price: 0,09,Quantity: 12,Sold: Yes",",") 将产生:

价格:0
09
数量:12
出售:是的

Answer 1

鉴于此测试数据，一种可能性是在拆分后循环遍历数组，并且只要没有 :在字符串中，将此条目添加到前一个条目中。

执行此操作的函数可能如下所示:

Public Function CleanUpSeparator(celldata As String) As String()
    Dim ret() As String
    Dim tmp() As String
    Dim i As Integer, j As Integer

    tmp = Split(celldata, ",")
    For i = 0 To UBound(tmp)
        If InStr(1, tmp(i), ":") < 1 Then
            ' Put this value on the previous line, and restore the comma
            tmp(i - 1) = tmp(i - 1) & "," & tmp(i)
            tmp(i) = ""
        End If
    Next i

    j = 0
    ReDim ret(j)
    For i = 0 To UBound(tmp)
        If tmp(i) <> "" Then
            ret(j) = tmp(i)
            j = j + 1
            ReDim Preserve ret(j)
        End If
    Next i

    ReDim Preserve ret(j - 1)

    CleanUpSeparator = ret
End Function

请注意，通过将分隔符设置为 :，还有改进的余地。和 ,例如，进入参数。