excel - 宏 - 使用标记拆分单元格中的文本

Question

我有一个带有值的单元格

XX 99999 - X99, XX 99999 - X99, XX 99999 - X99

X - 表示字母 9 - 表示数字

我必须阅读这个单元格

• 使用“，”拆分它以获取数组XX 99999 - X99
• 之后使用“”和“-”将其吐出以获得xx,99999和X99.

这可以在不使用“文本到列”的情况下完成吗，即在 excel 中使用某些函数？因为我需要使用分离的内容来过滤一些其他数据。

Answer 1

查看 MSDN 上的Split功能。下面分为两个部分。

1. 下面的代码首先拆分字符串并将每个逗号分隔值分配给 strSplit。
2. 然后它进一步用“”分割子字符串，并将每个部分分配给pieceSplit()，然后将其输出到即时窗口中。

您可以更改并应用于您的项目的最后一部分。

Dim str As String, piece As Variant
Dim strSplit() As String, pieceSplit() As Variant
Dim i As Double, j As Double

str = "XX 99999 - X99, XX 99999 - X99, XX 99999 - X99"

strSplit = Split(str, ",")
ReDim pieceSplit(UBound(strSplit)) As Variant

For i = 0 To UBound(strSplit)

    pieceSplit(i) = Split(strSplit(i), " ")

Next

For Each piece In pieceSplit

    For j = 0 To UBound(piece, 1)

        Debug.Print piece(j)

    Next j

Next