2011年12月24日土曜日

[ExcelVBA] Split関数


■構文
Split(expression[, delimiter[, limit[, compare]]])

■説明
区切り文字を含む文字列を受け取り1次元配列を返す
第一引数:区切り文字を含む文字列を指定
第二引数:(省略可能)区切り文字を指定。省略した場合スペースが使用されます。
第三引数:(省略可能)返す配列の要素数を指定。-1を指定するとすべての文字列を含んだ配列を返す。
第四引数:(省略可能)文字列比較の比較モードを指定。省略時、Option Compareステートメントの設定にしたがいます。
定数説明
vbUseCompareOption-1Option Compare ステートメントの設定を使用して比較を行います。
vbBinaryCompare0バイナリ モードの比較を行います。
vbTextCompare1テキスト モードの比較を行います。

■サンプルコード
Option Explicit

Sub SampleCode()
    Dim str As String, result As Variant
    
    str = "a,b,c"
    result = Split(str, ",") 'aとbとcの3要素をもつ配列
    
    str = "1 2 3"
    result = Split(str) '1と2と3の3要素をもつ配列
    
    str = "abcde"
    result = Split(str, "") 'abcdeの1要素をもつ配列
End Sub

0 件のコメント: