Home » エクセルマクロ・Excel VBAの使い方 » WorksheetFunction » TEXTJOIN関数をVBAで

TEXTJOIN関数をVBAで

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2004 ビルド12730.20236 Microsoft Store）

「TEXTJOIN関数 vba」
「エクセルマクロ Textjoin」
といった検索キーワードでのアクセスに気がつきました。

最近のExcelで使える、文字列の連結を行うTEXTJOIN関数をExcel VBAで利用するには、どのようなコードを書けばいいのか探していらしたのでしょう。

TEXTJOIN関数で改行を

［スポンサードリンク］

TEXTJOINで配列の要素を連結するサンプル

以下のSubプロシージャを実行すると、文字列型の配列変数arrに格納された3つの要素「松」「竹」「梅」が、途中に「／」をはさみながら連結され、「松／竹／梅」とメッセージボックスに表示されます。

Sub TEXTJOIN関数をVBAで利用する_配列変数()
　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プロシージャが参考になるでしょう。

Sub TEXTJOIN関数をVBAで利用する_セル範囲()
　Dim joined_text As String
　joined_text = WorksheetFunction.TextJoin("／", True, Range("A1:C1"))
　MsgBox joined_text
End Sub

実行すると、アクティブなワークシートのA1:C1セルに入力されている文字列が、間に「／」をはさみながら連結されて、メッセージボックスに表示されます。

［スポンサードリンク］