求助：如何分隔字符串？

cocopig

设有字符串“张三、李四、王小虎、刘六”，现想将其分割为“张三”、“李四”、“王小虎”、“刘六”等若干字符串，在C#中是要创建数组，然后用字符“，”来分隔字符串，请教VBA中如何实现分割字符串，要用什么函数？？？

咱家是猫

可以用Split函数,以顿号为做分隔依据转换成数组.
如 str=“张三、李四、王小虎、刘六”
debug.print split(str,"、")(0)
debug.print split(str,"、")(1)
...

zhuyiwen

1. dim aStrings as () String
   
2. dim s as string
   
3. 
   
4. s = "张三、李四、王小虎、刘六"
   
5. aStrings = split(s, "、")
   
6. 
   
7. dim i as long
   
8. dim c as long
   
9. 
   
10. c = ubound(aStrings)
    
11. for i =0 to c
    
12.     debug.Pring i, aStrings(i)
    
13. next

复制代码

sxgaobo

s = "张三、李四、王小虎、刘六"
MsgBox "“" & Replace(s, "、", "”、“") & "”"