【Excel VBA】数组应用(3)

按指定字符拆分字符串

在VBA中，使用函数Split实现将一个字符串以指定分隔符拆分出多个字符串。

Split函数返回下标下界从零开始的一维数组，包含以指定分隔符拆分后形成的子字符串，其语法格式如下。

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

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

如下代码将以半角逗号分隔字符串，保存到数组中，并写入指定单元格区域。

Sub SplitDemo()
     Dim astrNum() As String
     Dim strMyString As String
     strMyString = "EH001,