如何在Excel VBA的Split函数中保留空字符串至数组？

我来帮你搞定这个Split函数的问题～其实你可能误会了VBA Split的默认行为：它并不会忽略分隔符之间的空字符串，只是开头和结尾的分隔符会生成额外的空元素，容易让你误以为中间的空值被丢掉了。

先看你的原字符串：|ABC||DEF||||||XYZ||UVW||123|，直接用Split(txtString, "|")拆分后，数组里其实包含了所有中间的空值，只是多了开头（第一个|之前）和结尾（最后一个|之后）的两个空元素。

要得到你期望的数组（保留中间空值，去掉首尾的空元素），有两种简单的实现方法：

方法一：预处理字符串，去掉首尾分隔符 #

先把字符串开头和结尾的|去掉，再拆分，这样就能直接得到想要的结果：

Dim split_sText() As String
Dim processedStr As String

' 处理开头的|
If Left(txtString, 1) = "|" Then
    processedStr = Mid(txtString, 2)
Else
    processedStr = txtString
End If

' 处理结尾的|
If Right(processedStr, 1) = "|" Then
    processedStr = Left(processedStr, Len(processedStr) - 1)
End If

' 拆分字符串，此时中间的空字符串会被完整保留
split_sText = Split(processedStr, "|")

方法二：拆分后过滤首尾空元素 #

如果不想修改原字符串，可以先拆分，再手动去掉开头和结尾的空元素：

Dim split_sText() As String
Dim tempArr() As String
Dim startIdx As Integer, endIdx As Integer
Dim i As Integer, arrLen As Integer

' 先拆分，保留所有元素（包括空值）
tempArr = Split(txtString, "|")

' 跳过开头的空元素
startIdx = 0
Do While startIdx <= UBound(tempArr) And tempArr(startIdx) = ""
    startIdx = startIdx + 1
Loop

' 跳过结尾的空元素
endIdx = UBound(tempArr)
Do While endIdx >= startIdx And tempArr(endIdx) = ""
    endIdx = endIdx - 1
Loop

' 处理无有效元素的边界情况
If startIdx > endIdx Then
    ReDim split_sText(0 To 0)
    split_sText(0) = ""
Else
    ' 复制有效元素到目标数组
    arrLen = endIdx - startIdx
    ReDim split_sText(0 To arrLen)
    For i = 0 To arrLen
        split_sText(i) = tempArr(startIdx + i)
    Next i
End If

验证空字符串是否存在 #

如果你不确定数组里的空值是否存在，可以用这段代码打印所有元素：

Dim i As Integer
For i = LBound(split_sText) To UBound(split_sText)
    Debug.Print "索引" & i & ": '" & split_sText(i) & "'"
Next i

空字符串会显示为' '（空的单引号），这样就能清楚看到所有空值都被保留了。

内容的提问来源于stack exchange，提问作者DXR