本帖最后由 引子玄 于 2012-8-1 15:59 编辑
张三李四 发表于 2012-8-1 10:13
事实上还可以用汉字来表示数组。
果然一样很好用,用中文更形象{:soso_e179:}试验下这些代码,就知道是很好用的。
Sub 分割字符串()
Dim 数组
数组 = Split("a,b,c,d,e,f", ",")
Range("a1").Resize(1, UBound(数组)) = 数组
End Sub
=================
Sub 分裂函数演示()
Dim 我的字符串 As String
Dim i As Integer
Dim 新字符串
我的字符串 = "sheet1,sheet2,sheet3"
新字符串 = Split(我的字符串, ",")
For i = 0 To 2
Cells(i + 1, 1) = 新字符串(i)
Next
End Sub
=================
Sub tt()
Cells(1, 1) = "你/我/他"
Dim arr
arr = Split(Cells(1, 1), "/")
Cells(1, 2) = arr(1)
End Sub
|