「TEXTJOIN関数 vba」
「エクセル マクロ Textjoin」
といった検索キーワードでのアクセスに気がつきました。
最近のExcelで使える、文字列の連結を行うTEXTJOIN関数をExcel VBAで利用するには、どのようなコードを書けばいいのか探していらしたのでしょう。
TEXTJOINで配列の要素を連結するサンプル
以下のSubプロシージャを実行すると、文字列型の配列変数arrに格納された3つの要素「松」「竹」「梅」が、途中に「/」をはさみながら連結され、「松/竹/梅」とメッセージボックスに表示されます。
Dim arr(1 To 3) As String
arr(1) = "松"
arr(2) = "竹"
arr(3) = "梅" Dim joined_text As String
joined_text = WorksheetFunction.TextJoin("/", True, arr)
MsgBox joined_text
End Sub
配列の要素を、
arr(1) = "松"
arr(2) = "" ' 空白文字列に変更
arr(3) = "梅"
としてから、実行した場合は、
松/梅
がメッセージボックスに表示され、
joined_text = WorksheetFunction.TextJoin("/", True, arr)
の行を、
joined_text = WorksheetFunction.TextJoin("/", False, arr)
に修正して実行した場合は、
松//梅
がメッセージボックスに表示されます。
TEXTJOINでセル範囲のデータを連結するサンプル
セルに入力されているデータを連結したい場合は、以下のSubプロシージャが参考になるでしょう。Dim joined_text As String
joined_text = WorksheetFunction.TextJoin("/", True, Range("A1:C1"))
MsgBox joined_text
End Sub
実行すると、アクティブなワークシートのA1:C1セルに入力されている文字列が、間に「/」をはさみながら連結されて、メッセージボックスに表示されます。
Home » エクセルマクロ・Excel VBAの使い方 » WorksheetFunction » TEXTJOIN関数をVBAで
TrackBack:0
- TrackBack URL