求解释SPLIT用法

willems

例子：
单元格C6 的值为aaaaaaa/ggggggggg/rrrrrrr/ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp
Sub test_split()
Dim a As String
a = Split(Range("C6"), "/", 2)(1)
MsgBox a
End Sub
这里为什么得出的结果是ggggggggg/rrrrrrr/ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp

Split(Range("C6"), "/", 2)(1)
这句话的1应该是第一个"/" 那那个2是什么意思? 求解

蓝桥玄霜

第1.35例 Split 函数
一、题目：
　　要求编写一段代码，运用 Split  函数返回一个一维数组。
二、代码：
Sub 示例_1_035()
Dim x%,aa,Arr
For x=1 to 5
aa=aa & x & “,”
Next x
aa = Left(aa, Len(aa) - 1)
Arr=Split(aa,”,”)
End Sub
三、代码详解
1、Sub 示例_1_035()：宏程序的开始语句。宏名为示例_1_035。
2、Dim x% ,aa,Arr  ：声明变量x为整型变量，其余两个为可变型变量。
3、For x = 1 To 5  ：x从1 到5进行循环。
4、aa=aa & x & “,” ：根据循环依次把变量x的值和逗号组成的字符串赋给变量aa。返回”1,2,3,4,5,”
5、aa = Left(aa, Len(aa) - 1)  ：因为字符串aa最后多了一个逗号，所以运用Left 和Len函数去除这个逗号以后再赋给变量aa。返回”1,2,3,4,5”
6、Arr=Split(aa,”,”) ：运用 Split  函数返回一个一维数组赋给变量Arr(0 to 4)。注意：这里是以0为下标的一维数组。

Split函数
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

Split(expression[, delimiter[, limit[, compare]]])
Split函数语法有如下命名参数：
expression        必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
delimiter        可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
limit        可选的。要返回的子字符串数，–1表示返回所有的子字符串。
compare        可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。
设置值
compare参数的设置值如下：
常数                     值        描述
vbUseCompareOption        –1        用Option Compare语句中的设置值执行比较。
vbBinaryCompare              0        执行二进制比较。
vbTextCompare              1        执行文字比较。
vbDatabaseCompare          2        仅用于Microsoft Access。基于您的数据库的信息执行比较。

hupanshan

Split函数
      

描述

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

语法

Split(expression[, delimiter[, limit[, compare]]])

Split函数语法有如下命名参数：

部分 描述
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
limit 可选的。要返回的子字符串数，–1表示返回所有的子字符串。
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。



设置值

compare参数的设置值如下：

常数 值 描述
vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文字比较。
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。

这句话的1应该是第2个子字符串
那个2是分解后形成2个子字符串的数组

willems

哇,楼上两位真的是,,...
虽然你们能帮我我很高兴,但能不能看完我写的内容再回答,光看题目就直接将一个某人发的例题抄上来.或者直接将EXCEL VBA帮助里的解释放上来
这个等于没说一样,,,,

谢谢哪位高人求解

hupanshan

这句话的1应该是第2个子字符串
那个2是分解后形成2个子字符串的数组

willems

还是不怎么理解
那Split(Range("C6"), "/", 4)(3)
得出的结果是ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp

如果是Split(Range("C6"), "/")(3)
得出的结果是ttttttt
求解

蓝桥玄霜

可以把代码改为如下：
Sub test_split()
Dim a As String, b
b = Split(Range("C6"), "/", 4)
a = b(3)
MsgBox a
End Sub
再用F8逐句执行，可以看到分解得到的子字符串数量。
本例Split函数的第3个参数4，就是帮助里面的limit参数，表示分解成4个子字符串；用上面的代码可得：
b(0)="aaaaaaa"
b(1)="ggggggggg"
b(2)="rrrrrrr"
b(3)="ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp"
limit参数不用的话，默认＝－1，表示返回所有的子字符串。
建议仔细读一读上面的帮助文件的内容。

hupanshan

原帖由 willems 于 2010-12-2 16:41 发表
还是不怎么理解
那Split(Range("C6"), "/", 4)(3)
得出的结果是ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp

如果是Split(Range("C6"), "/")(3)
得出的结果是ttttttt
求解

Split(Range("C6"), "/", 4)(3) 把C6按/分开4段取第4段，前3段都是原来以/隔开的，第4段就是所有剩下的，自然把/都带着，而且比较长。
Split(Range("C6"), "/")(3) 把C6按/分开，不限制分多少段，取第4段，第4段就只有ttttttt了，后面的那些分别在第5至7段里了。
例如：Split(Range("C6"), "/")(6) 就是取第7段pppppppp

Sting_Ning

我觉得楼主的主要意思是怎么解释题目中的split函数，我的理解：
a = Split(Range("C6"), "/", 2)(1)
函数中的“2”意思时把C6的内容分成2段，即：
“aaaaaaa”和“/ggggggggg/rrrrrrr/ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp”
两部分，而“(1)”表示取第二部分（因为就象两位大大说的，下标时从(0)开始的）
所以楼主的“msgbox a”就应该是
/ggggggggg/rrrrrrr/ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp 没错
如果“(1)”改为“(0)”的话，那么“msgbox a” 我想应该就是
aaaaaaa 了
其他的split分割方式应该如此类推
俺也是新手，说得不对不要砸啊。。。。

kalex714

a = Split(Range("C6"), "/", 2)(1)
函数中的“2”意思时把C6的内容分成2段，即：
“aaaaaaa”和“/ggggggggg/rrrrrrr/ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp”
应该是分为如下两段:
“aaaaaaa”和“ggggggggg/rrrrrrr/ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp”
取1就是第二段,即:“ggggggggg/rrrrrrr/ttttttt/jjjjjjjj/uuuuuuuuu/pppppppp”
a = Split(Range("C6"), "/", 3)(1)
a = Split(Range("C6"), "/", 4)(1)
a = Split(Range("C6"), "/", 5)(1)
a = Split(Range("C6"), "/", 6)(1)
上面的结果都是一样的.