作者olycats (可)
看板Visual_Basic
标题Re: [算表] vba内字串选取的回圈问题
时间Fri May 6 22:57:11 2011
谢谢前一篇两位版友的推文
...早知道有Split就不用那麽辛苦地土法炼钢....
instr改天再来研究看看
不过那个连结我点下去好像有点错误耶
今天看了一下VBA的阵列
把原本的修改过
虽然不太专业但至少比原本的简洁多了@@
Sub macro 1()
Dim x As String
x = Cells(1, 1)
y = Len(x)
'清除A栏的储存格内容
Range("A2:A65536").ClearContents
'宣告阵列
ReDim Z(y) As String
'k 初始
k = 1
'纪录斜线的位置
For m = 1 To y
If Mid(x, m, 1) = "/" Then
Z(k) = m
k = k + 1
End If
Next
'头 尾
Z(0) = 0
Z(k) = y + 1
'开始贴上
For i = 0 To k - 1
Cells(i + 2, 1) = Mid(x, Z(i) + 1, Z(i + 1) - Z(i) - 1)
Next
Range("A1").Activate
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.166.123.56
1F：推 sueadolph:Split google一下就有很多范例了 05/07 22:52