概要
Excel VBAを扱う上で、複数のセルや文字列を一つに結合する処理は非常に頻繁に登場します。従来、この処理は`&`演算子や`CONCATENATE`関数を駆使して行ってきましたが、区切り文字の挿入や空のセルの無視といった、より高度な制御を行うには手間がかかりました。しかし、Excel 2019以降、あるいはMicrosoft 365で利用可能な`TEXTJOIN`関数が登場したことで、これらの課題は劇的に解消されました。
`TEXTJOIN`関数は、指定した区切り文字を挟んで、複数の文字列を結合できる強力な関数です。さらに、結合対象の文字列の中に空のセルが含まれる場合に、それらを無視するかどうかを選択できるオプションも備えています。この関数を理解し、VBAと組み合わせることで、より効率的で柔軟なデータ処理が可能になります。本記事では、`TEXTJOIN`関数の基本的な使い方から、VBAでの応用例、そして実務で役立つアドバイスまで、網羅的に解説していきます。
TEXTJOIN関数の詳細解説
`TEXTJOIN`関数の構文は以下の通りです。
TEXTJOIN(区切り文字, 空白を無視, 文字列1, [文字列2], …)
各引数について詳しく見ていきましょう。
区切り文字 (delimiter)
これは、結合する各文字列の間に挿入される文字列です。例えば、カンマ(`,`)、スペース(` `)、ハイフン(`-`)などが考えられます。この引数を省略することはできません。
空白を無視 (ignore_empty)
この引数は論理値（TRUEまたはFALSE）を指定します。
* `TRUE`: 結合対象の文字列の中に空のセルが含まれる場合、それらを無視して結合します。つまり、空のセルは結果に影響を与えません。
* `FALSE`: 結合対象の文字列の中に空のセルが含まれる場合、その空のセルを区切り文字で区切られたものとして処理します。つまり、区切り文字が連続して表示される可能性があります。
通常は`TRUE`を指定することが多く、よりクリーンな結果を得られます。
文字列1, [文字列2], … (text1, [text2], …)
結合したい文字列やセル範囲を指定します。最大で252個の文字列またはセル範囲を指定できます。セル範囲を指定した場合、その範囲内の各セルが個別の文字列として扱われ、指定した区切り文字で結合されます。
TEXTJOIN関数の活用例
具体的な例を見てみましょう。
例1：単純な文字列結合
「りんご」、「みかん」、「ぶどう」という3つの文字列をカンマとスペースで区切って結合したい場合。
=TEXTJOIN(“, “, TRUE, “りんご”, “みかん”, “ぶどう”)
結果: `りんご, みかん, ぶどう`
例2：セル範囲の結合
A1セルに「東京」、B1セルに「新宿」、C1セルに「渋谷」と入力されている場合、これらをスペースで区切って結合したい場合。
=TEXTJOIN(” “, TRUE, A1:C1)
結果: `東京 新宿 渋谷`
例3：空のセルを無視しない場合
A1セルに「東京」、B1セルに空、C1セルに「渋谷」と入力されている場合。
=TEXTJOIN(“, “, FALSE, A1:C1)
結果: `東京, , 渋谷`
（空のセルがそのままカンマとスペースで表現されています。）
例4：空のセルを無視する場合
同じくA1セルに「東京」、B1セルに空、C1セルに「渋谷」と入力されている場合。
=TEXTJOIN(“, “, TRUE, A1:C1)
結果: `東京, 渋谷`
（空のセルが無視され、カンマとスペースが一つだけ表示されています。）
VBAでのTEXTJOIN関数の利用
`TEXTJOIN`関数は、Excelのワークシート関数としてだけでなく、VBAのコード内でも`Application.WorksheetFunction`オブジェクトを通じて利用できます。これにより、VBAマクロ内で動的な文字列結合処理を記述することが可能になります。
VBAでの基本的な使い方
VBAで`TEXTJOIN`関数を使用するには、`Application.WorksheetFunction.TextJoin`メソッドを呼び出します。引数の指定方法はワークシート関数と同様です。
Sub UseTextJoin()
Dim delimiter As String
Dim ignoreEmpty As Boolean
Dim text1 As String
Dim text2 As String
Dim result As String
‘ 区切り文字を設定
delimiter = “, ”
‘ 空白を無視するかどうかを設定 (TRUE: 無視する, FALSE: 無視しない)
ignoreEmpty = True
‘ 結合する文字列
text1 = “Excel”
text2 = “VBA”
‘ TEXTJOIN関数を実行して結果を取得
result = Application.WorksheetFunction.TextJoin(delimiter, ignoreEmpty, text1, text2)
‘ 結果をメッセージボックスに表示
MsgBox result ‘ 出力: Excel, VBA
End Sub
セル範囲をVBAで結合する
VBAでは、セル範囲を直接`TextJoin`メソッドの引数として渡すことができません。セル範囲を渡す場合は、一度配列に変換するか、`Range`オブジェクトをループ処理する必要があります。
方法1：Rangeオブジェクトをループ処理する
最も一般的で理解しやすい方法です。
Sub JoinRangeLoop()
Dim targetRange As Range
Dim cell As Range
Dim resultArray() As String
Dim i As Integer
Dim delimiter As String
Dim ignoreEmpty As Boolean
Dim result As String
‘ 対象のセル範囲を指定 (例: Sheet1のA1からA5)
Set targetRange = ThisWorkbook.Sheets(“Sheet1”).Range(“A1:A5”)
‘ 区切り文字と空白無視の設定
delimiter = “|”
ignoreEmpty = True
‘ 配列に格納するための準備 (空のセルを無視する場合、格納される要素数が不定になるため、動的配列を使用)
ReDim resultArray(0)
i = 0
‘ セルをループ処理
For Each cell In targetRange
If ignoreEmpty Then
‘ 空白を無視する場合
If Trim(cell.Value) <> “” Then ‘ Trim関数で前後の空白も除去して判定
resultArray(i) = cell.Value
i = i + 1
ReDim Preserve resultArray(i) ‘ 配列を拡張
End If
Else
‘ 空白を無視しない場合
resultArray(i) = cell.Value
i = i + 1
ReDim Preserve resultArray(i) ‘ 配列を拡張
End If
Next cell
‘ 配列が空でない場合のみTEXTJOINを実行
If UBound(resultArray) >= 0 Then
‘ TEXTJOIN関数を実行
result = Application.WorksheetFunction.TextJoin(delimiter, ignoreEmpty, resultArray)
MsgBox result
Else
MsgBox “結合する文字列がありませんでした。”
End If
End Sub
このコードでは、`ReDim Preserve`を使用して動的に配列のサイズを変更しています。`ignoreEmpty`が`TRUE`の場合、空のセルは配列に格納されないため、`UBound`が`0`未満になる可能性もあります。そのため、結合処理の前に配列が空でないかを確認しています。
方法2：Evaluateメソッドで配列に変換する
`Evaluate`メソッドを使用すると、セル範囲を配列に変換できます。これは、より簡潔に記述できる場合があります。
Sub JoinRangeEvaluate()
Dim targetRange As Range
Dim delimiter As String
Dim ignoreEmpty As Boolean
Dim dataArray As Variant
Dim result As String
‘ 対象のセル範囲を指定 (例: Sheet1のA1からA5)
Set targetRange = ThisWorkbook.Sheets(“Sheet1”).Range(“A1:A5”)
‘ 区切り文字と空白無視の設定
delimiter = “-”
ignoreEmpty = True
‘ セル範囲を配列に変換 (Evaluateメソッドは1次元配列を返す)
‘ 空のセルを無視する場合、Evaluateは空のセルを配列に含めないため、TEXTJOINのignore_empty引数をTRUEにする必要はないが、統一のためTRUEを指定
dataArray = Application.Evaluate(targetRange.Address)
‘ TEXTJOIN関数を実行
‘ Evaluateで配列に変換した場合、TEXTJOINの引数として直接配列を渡せる
‘ ただし、Excelのバージョンによっては、Evaluateで取得した配列をTEXTJOINに直接渡せない場合がある。
‘ その際は、上記ループ処理の方法を推奨する。
‘ Excel 2019以降、Microsoft 365であれば、通常は問題なく動作する。
If IsArray(dataArray) Then
result = Application.WorksheetFunction.TextJoin(delimiter, ignoreEmpty, dataArray)
MsgBox result
Else
‘ 範囲が1セルのみの場合、Evaluateは配列ではなく単一の値を返すことがある
If Trim(CStr(dataArray)) <> “” Then
MsgBox dataArray ‘ 配列にならない場合はそのまま表示
Else
MsgBox “結合する文字列がありませんでした。”
End If
End If
End Sub
**注意点:** `Evaluate`メソッドで取得した配列は、通常1次元配列となります。`TEXTJOIN`関数は可変長引数を受け取るため、配列を直接渡すことができます。しかし、Excelのバージョンや環境によっては、`Evaluate`で取得した配列が期待通りに`TEXTJOIN`に渡せない場合があります。その場合は、前述のループ処理による方法がより確実です。また、単一のセル範囲を指定した場合、`Evaluate`は配列ではなく単一の値を返すことがあります。
TEXTJOIN関数でできないこと（VBAでの代替案）
`TEXTJOIN`関数は非常に便利ですが、万能ではありません。例えば、以下のようなケースでは、VBAで別途処理を記述する必要があります。
* **特定の条件に合致する文字列のみを結合したい:** `TEXTJOIN`関数には、結合する文字列に条件を指定する機能はありません。この場合は、VBAでループ処理を行い、`If`文などで条件判定してから結合対象の文字列を配列に追加する必要があります。
* **結合する文字列の順序を任意に並べ替えたい:** `TEXTJOIN`関数は、指定された順序で結合します。順序を並べ替える必要がある場合は、VBAで配列に格納し、ソート処理を行った後に`TEXTJOIN`関数に渡すなどの工夫が必要です。
実務アドバイス
`TEXTJOIN`関数を実務で活用する際のポイントをいくつかご紹介します。
* **空のセルの扱いは慎重に:** `ignore_empty`引数を`TRUE`にするか`FALSE`にするかで、結果は大きく変わります。データの内容や、最終的にどのような形式で表示したいのかを考慮して、適切な設定を行ってください。
* **区切り文字の選択:** 使用する区切り文字は、データの内容と矛盾しないもの、かつ、区切り文字自体がデータ内に含まれないものを選ぶのが望ましいです。例えば、住所を結合する際にカンマを使うと、番地などにカンマが含まれている場合に区別がつきにくくなります。そのような場合は、スラッシュ(`/`)やパイプ記号(`|`)などの、よりユニークな文字を区切り文字として検討すると良いでしょう。
* **大量のデータ処理:** 数万行、数十万行といった大量のデータを`TEXTJOIN`関数で処理する場合、パフォーマンスに影響が出ることがあります。特に、セル範囲をVBAでループ処理する場合は、画面更新を停止する(`Application.ScreenUpdating = False`)などの最適化を検討してください。
* **VBAとの連携:** VBAで`TEXTJOIN`関数を使用する際は、`Application.WorksheetFunction.TextJoin`のように記述します。もし、`TEXTJOIN`関数が利用できない古いExcelバージョン（Excel 2016以前）の環境でマクロを実行する可能性がある場合は、`On Error Resume Next`文でエラーを捕捉し、代替処理（例えば、`Join`関数やループ処理）に切り替えるなどのエラーハンドリングを実装すると、より堅牢なコードになります。
* **大量のセル範囲を結合する場合の注意:** VBAで`Application.Evaluate(targetRange.Address)`を使用してセル範囲を配列に変換する際、対象範囲が非常に大きい場合、メモリ使用量が増加し、パフォーマンスに影響を与える可能性があります。そのような場合は、ループ処理による方法の方がメモリ効率が良い場合があります。
* **複数シートにまたがるデータの結合:** `TEXTJOIN`関数は、単一のシート内のセル範囲にしか直接適用できません。複数シートにまたがるデータを結合したい場合は、VBAで各シートからデータを取得し、配列にまとめてから`TEXTJOIN`関数に渡す必要があります。
まとめ
`TEXTJOIN`関数は、Excel 2019以降およびMicrosoft 365で利用できる、文字列結合における革命的な関数です。区切り文字の指定、空のセルの無視といった柔軟なオプションにより、従来は煩雑だった文字列結合処理を、驚くほどシンプルかつ効率的に行うことができます。
VBAと組み合わせることで、この関数のパワーはさらに増します。動的なデータ処理や、複雑な条件に基づいた文字列結合など、VBAならではの高度な処理にも`TEXTJOIN`関数を組み込むことで、コードの記述量を減らし、可読性を向上させることが可能です。
本記事で解説した内容を参考に、ぜひ`TEXTJOIN`関数をマスターし、日々のExcel業務やVBA開発における効率化にお役立てください。特に、大量のデータを整形する際や、レポート作成時のデータ集約など、その恩恵は計り知れません。
