用split将字符串按单个字符拆分到数组，为啥达不到目的？

hnyylx

以下这句代码为啥达不到目的（用split按单个字符拆分到数组）？  我用的excel2013


    ' 使用Split函数将字符串拆分
    splitCharacters = Split(originalString, "")




Sub SplitStringIntoCharacters()
    Dim originalString As String
    Dim splitCharacters() As String
    Dim i As Integer
    Dim character As String
    Dim outputRange As Range

    ' 初始化原始字符串
    originalString = "Hello"

    ' 使用Split函数将字符串拆分
    splitCharacters = Split(originalString, "")

    ' 设置输出范围的起始单元格
    Set outputRange = ThisWorkbook.Sheets("Sheet1").Range("A1")

    ' 遍历字符数组并将每个字符输出到单元格中
    For i = LBound(splitCharacters) To UBound(splitCharacters)
        character = splitCharacters(i)
        outputRange.Offset(0, i).Value = character
    Next i
End Sub

ykcbf1100

split函数，如果没有分隔字符是无法拆分的

ykcbf1100

可以按字符串长度，一个字符一个字符的拆分出来

feilanga

feilanga

feilanga

x-xx-xx

mid            

hnyylx

hnyylx

以下是百度上搜的，也达不到目的，不知如何实现，麻烦老师们再指教下：
vba 将某字符串 按照多个指定的分隔字符拆分
在VBA中，你可以使用Split函数来根据一个或多个指定的分隔符拆分字符串。以下是一个示例代码，展示了如何使用Split函数来拆分字符串：
Sub SplitStringExample()
    Dim str As String
    Dim separators As String
    Dim result() As String
    Dim i As Integer
   
    str = "one,two;three|four-five"
    separators = ",;|-" ' 指定多个分隔符
   
    ' 使用Split函数拆分字符串
    result = Split(str, separators)
   
    ' 遍历结果数组并打印每个元素
    For i = LBound(result) To UBound(result)
        Debug.Print result(i)
    Next i
End Sub

tanglf188

包含子字符串和分隔符的字符串表达式。 如果expression是零长度字符串 ("")，则Split返回空数组，即不包括任何元素和数据的数组