split分裂语句的几种写法

引子玄

split分裂语句的几种写法
(注：不喜欢用附件发贴，为了方便你我他，以下代码均可直接运行)


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
=================

先学了最基本的上述写法，复杂的写法还在寻找中、、、、、、

引子玄

split语句，网页抓取必修课程。（前面已经学习了循环语句，后面还要学习replace语句），这三种数组语句都是“网抓”必修课程。

aman1516

辛苦楼主了，期待更多的应用示例。

香川群子

有啥复杂的，你举得例子都是一样的。（同类型）


看下帮助文件，不就都明白了。

网名

很好的学习材料，收藏中~~

fengying9742

好东西，学习

pzhzshun

感谢分享，学习中。