VBA数组函数Split()将文本内容转化为数组的实用便

  大家好,我们今日继续讲解VBA代码解决方案的第60讲内容:如何将文本内容转化为数组。这个问题的提出是因为我们在处理一些文字时往往在WORD中,要拷贝到EXCEL中来填充一些资料,多是人名,设备名等,这些往往要求以独占一个 单元格的信息,这时该如何把这些人名,设备名放到EXCEL中呢?这就是讲文本转化为数组再填充的问题。

  一:在处理字符串时可以使用Split 函数将字符串按指定的分隔符分开并以数组返回,

  Split 函数返回一个下标从零开始的一维数组,包含指定数目的子字符串,语法如下:

  参数delimiter是必需的,用来标识子字符串边界的字符串字符。如果忽略,则使用空格字符( )作为分隔符。

  二:我们在完成数组的转换之后,往往要求横向或者纵向的填充,这时工作表Transpose函数返回转置单元格区域,即将一行单元格区域转置成一列单元格区域,反之亦然,语法如下:

  有了上面两个知识点我们看我们今日的学习内容,我们有一个单元格的文本内容,要把这些内容首先转化为数组,然后再填充到纵向的单元格中。

  第4行代码,首先使用UBound函数取得返回数组的最大下标后调整单元格区域,因为数组下标的缺省下界默认为0,所以在使用Resize属性调整单元格区域时参数RowSize需要在返回数组的最大下标上加一。

  然后使用工作表Transpose函数将返回数组转置后写入到工作表调整后的单元格区域中。

TAG标签:
Ctrl+D 将本页面保存为书签,全面了解最新资讯,方便快捷。