vba 如何把字符串里的符号当分隔符但不删除然后转成数组

Peny2020

一个字符串
1_2_3_4

想转成数组连同符号一并横向输出。如果不删除符号怎么写？谢谢了。

大灰狼1976

Sub test()
Dim s$, arr
s = "1 2 3 4"
s = Replace(s, " ", "  ")
arr = Split(s)
'输出
End Sub

大灰狼1976

Sub test()
Dim s$
s = "1 2 3 4"
s = Replace(s, " ", ", ,")
[a1].Resize(, 7) = Split(s, ",")
End Sub

Peny2020

大灰狼1976 发表于 2024-8-29 11:49
Sub test()
Dim s$, arr
s = "1 2 3 4"

原来加两个空格，谢谢了

大灰狼1976

Peny2020 发表于 2024-8-29 12:00
原来加两个空格，谢谢了

两个空格分出的数组，中间的元素是空，不是原来的分隔符，可能不符合你的本意，所以我后面又发了一个

Peny2020

大灰狼1976 发表于 2024-8-29 12:28
两个空格分出的数组，中间的元素是空，不是原来的分隔符，可能不符合你的本意，所以我后面又发了一个

嗯，多得你提供思路，我已知道怎么写了，谢谢

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, r&
   
    ar = Split([A1].Value, "_")
    ReDim br(1 To UBound(ar) * 2 + 1)
    br(1) = ar(0): r = 1
    For i = 1 To UBound(ar)
        r = r + 1
        br(r) = "_"
        r = r + 1
        br(r) = ar(i)
    Next i
   
    [A5].Resize(, UBound(br)) = br
    Beep
End Sub