TEXTJOIN関数をVBAで

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

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

• TEXTJOIN関数で改行を

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

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

配列の要素を、
　　arr(1) = "松"
　　arr(2) = ""　' 空白文字列に変更
　　arr(3) = "梅"
としてから、実行した場合は、
　　松／梅
がメッセージボックスに表示され、
　　joined_text = WorksheetFunction.TextJoin("／", True, arr)
の行を、
　　joined_text = WorksheetFunction.TextJoin("／", False, arr)
に修正して実行した場合は、
　　松／／梅
がメッセージボックスに表示されます。

TEXTJOINでセル範囲のデータを連結するサンプル

セルに入力されているデータを連結したい場合は、以下のSubプロシージャが参考になるでしょう。

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