TOP

指定された区切り文字によるテキストの自動分割 (SPLITUP)

以下に、指定された区切り文字に基づいてテキストを複数の部分に分割するのに役立つ関数を示します。

これを行うには、エディター Visual Basic (Alt+F11) を開きます。 新しい空のソフトウェア モジュールを挿入します (Insert - Module) を選択し、この関数のテキストをそこにコピーします。

Function SPLITUP(Txt, Delimiter, n) As String
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        SPLITUP = x(n - 1)
      Else
        SPLITUP = ""
      End If
End Function

保存して Excel に戻ります。カスタム関数の中に SPLITUP() 関数があります。

SPLITUP (テキスト; 区切り文字; フラグメントのシーケンス番号) 、 どこ:

トピックに関する記事: