TOP

指定した区切り文字によるテキストの自動分割

GETSUBSTR() 説明

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


マクロの VBA コード

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

Function GETSUBSTR(Txt, Delimiter, n) As String
   'moonexcel.com.ua
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        GETSUBSTR = x(n - 1)
      Else
        GETSUBSTR = ""
      End If
End Function

保存して Excel に戻ります。カスタム関数に GETSUBSTR() 関数が含まれるようになりました。

 =GETSUBSTR(テキスト; 区切り文字; フラグメントのシーケンス番号) 

どこ:

トピックに関する記事: