VBA的split函数能不能分隔被多个空格间隔的数据啊？

aidixiao

谢谢分享。

coverne

2楼的方法真是很直观啊

praijna

不错，值得学习的例子！

19811123lxys

哈，8楼的代码对我好用哦

20060510412

honggexjq 发表于 2009-9-27 15:34
split(application.worksheetfunciton.trim(string)," ")试试

这个方法非常不错，学习了

引子玄

Sub 匹配组合()
'字符串"1 2  3    4"
a = Str(1)
b = Str(2)
c = Str(3)
d = Str(4)
arr = Array(a, b, c, d)
brr = VBA.Filter(arr, "A", False) '筛选不含A的数值组成一个新数组
Cells(1, 1) = Join(brr, "") '查看筛选的结果
MsgBox [a1]
End Sub

引子玄

Sub 按楼主要求用分裂方法完全搞定了()
S = "1 2  3    4"
a = [FIND("1","1 2  3    4")] '注意：FIND公式不可以间接引用字符串
b = [FIND("2","1 2  3    4")]
c = [FIND("3","1 2  3    4")]
d = " "    '分割符
arr = Split(S, d)(a - 1)
brr = Split(S, d)(a)
crr = Split(S, d)(b)
drr = Split(S, d)(c + 1)
MsgBox arr & d & brr & d & crr & d & drr
End Sub

引子玄

引子玄 发表于 2012-9-2 19:26
Sub 用分裂函数完全搞定了()
S = "1 2  3    4"
a = [FIND("1","1 2  3    4")] '注意：FIND公式不可以间 ...

VBA的split函数能不能分隔被多个空格间隔的数据啊？

答案是：不用正则是可以split的！

这是一道看似很易、实则很难的题目{:soso_e192:}

yaozong

2楼的方法不错。(测试通过)
Private Sub CommandButton1_Click()
    arr = VBA.Split(Application.Trim([a1]), " ")
    [d1].Resize(1, UBound(arr) + 1) = arr
End Sub

引子玄

yaozong 发表于 2012-9-2 21:42
2楼的方法不错。(测试通过)
Private Sub CommandButton1_Click()
    arr = VBA.Split(Application.Trim( ...

含有Private的Sub ，非上乘也