Excelは、文字列をより長い文字列に結合するという同じ目的を持つ1つのブック関数と1つの演算子を提供します。 CONCATENATE関数とアンパサンド（＆）演算子の目的は基本的に同じです。

多くの人は、入力が少なくて済むため、CONCATENATE関数よりもアンパサンド演算子を使用しますが、CONCATENATEは、ある範囲のセルを処理する場合、非常に価値が高くなります。

残念ながらそうではありませんが、範囲内のすべてのセルを非常にうまく連結する独自のユーザー定義関数を作成できます。

次のマクロについて考えてみます。

Function Concat1(myRange As Range, Optional myDelimiter As String)

Dim r As Range

For Each r In myRange         Concat1 = Concat1 & r & myDelimiter     Next r     If Len(myDelimiter) > 0 Then         Concat1 = Left(Concat1, Len(Concat1) - Len(myDelimiter))

End If End Function

この関数には範囲が必要であり、オプションの区切り文字が用意されています。

最後の「If」ステートメントは、連結された文字列から最後の末尾の区切り文字を削除します。 CONCAT1関数を使用すると、CONCATENATEまたはアンパサンド式で必要なメンテナンスなしで、範囲内でセルを追加および削除できます。次のいずれかの方法で関数を呼び出すだけです。

=CONCAT1(C8:E10)

=CONCAT1(C8:E10,"|")

関数を呼び出す2番目の方法では、オプションの区切り文字を使用します。この区切り文字は、範囲C8：E10の連結された各値の間に挿入されます。ただし、これには問題があります。その範囲のセルが空の場合、2つの連続した区切り文字で終わる可能性があります。区切り文字を1つだけにしたい場合は、関数に1つの小さな変更を加える必要があります。

Function Concat2(myRange As Range, Optional myDelimiter As String)

Dim r As Range

For Each r In myRange         If Len(r.Text) > 0 Then             Concat2 = Concat2 & r & myDelimiter         End If     Next r     If Len(myDelimiter) > 0 Then         Concat2 = Left(Concat2, Len(Concat2) - Len(myDelimiter))

End If End Function

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（11247）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkセルの範囲の連結。