p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Arial; color: #333333; -webkit-text-stroke: #333333; background-color: #ffffff}span.s1 {font-kerning: none}span.s2 {font-kerning: none; color: #136ec2; -webkit-text-stroke: 0px #136ec2}

数组，它包含指定数目的子字符串。

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

设置值：

compare参数的设置值如下常数值描述vbUseCompareOption–1用Option Compare语句中的设置值执行比较。vbBinaryCompare0执行二进制比较。vbTextCompare1执行文字比较。vbDatabaseCompare2仅用于Microsoft Access。基于您的数据库的信息执行比较。

p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Arial; color: #333333; -webkit-text-stroke: #333333}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Arial; color: #333333; -webkit-text-stroke: #333333; background-color: #ffffff}span.s1 {font-kerning: none; background-color: #ffffff}span.s2 {font-kerning: none}span.s3 {font-kerning: none; color: #136ec2; -webkit-text-stroke: 0px #136ec2}

p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Courier New'; color: #333333; -webkit-text-stroke: #000000; background-color: #ffffff}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Courier New'; color: #008200; -webkit-text-stroke: #008200; background-color: #ffffff}p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Courier New'; color: #006699; -webkit-text-stroke: #006699; background-color: #ffffff}span.s1 {font-kerning: none}span.s2 {font-kerning: none; color: #0000ff; -webkit-text-stroke: 0px #0000ff}span.s3 {font-kerning: none; color: #006699; -webkit-text-stroke: 0px #006699}table.t1 {border-collapse: collapse}td.td1 {width: 754.5px}

　　DimTestStringAsString="applepearbanana"

　　DimTestArray()AsString=Split(TestString)

　　'TestArrayholds{"apple","","","","pear","banana","",""}

　　ForiAsInteger=0ToTestArray.Length-1

　　IfTestArray(i)<>""Then

　　LastNonEmpty+=1

　　TestArray(LastNonEmpty)=TestArray(i)

　　EndIf

　　Next

　　ReDimPreserveTestArray(LastNonEmpty)

　　'TestArraynowholds{"apple","pear","banana"}

编后语：关于split函数的相关介绍就到这里了，本文只是简单的介绍了一下split函数的语法以及设置值，具体怎么使用还需要你自己的深入学习有关知识。