Vba で文字列を連結する方法 (例付き)
VBA で文字列を連結するには、次の方法を使用できます。
方法 1: 2 つの文字列を連結する
SubConcatStrings ()
Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub
この例では、セルA2とB2の文字列を連結し、結果をセルC2に表示します。
方法 2: 2 つの文字列を区切り文字で連結する
SubConcatStrings ()
Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub
この例では、セルA2とB2の文字列を文字列の間にスペースを入れて連結し、結果をセルC2に表示します。
方法 3: 区切り文字を使用して 2 つの列を連結する
SubConcatStrings ()
Dim i As Integer
For i = 2 To 6
Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
Next i
End Sub
この例では、範囲A2:A6とB2:B6の文字列を文字列間にアンダースコアを入れて連結し、結果をセルC2:C6に表示します。
次の例は、これらの各メソッドを実際に使用する方法を示しています。
例 1: 2 つの文字列を連結する
次のマクロを作成して 2 つの文字列を連結できます。
SubConcatStrings ()
Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub
このマクロを実行すると、次の出力が表示されます。
セルA2とB2の文字列がセルC2に連結されていることに注意してください。
例 2: 2 つの文字列を区切り文字で連結する
次のマクロを作成して、スペースを区切り文字として 2 つの文字列を連結できます。
SubConcatStrings ()
Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub
このマクロを実行すると、次の出力が表示されます。
セルA2とB2の文字列がスペースを挟んで連結されており、その結果がセルC2に表示されていることに注意してください。
例 3: 区切り文字を使用して 2 つの列を連結する
次のマクロを作成して、区切り文字としてアンダースコアを使用して文字列を 2 つの列に連結できます。
SubConcatStrings ()
Dim i As Integer
For i = 2 To 6
Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
Next i
End Sub
このマクロを実行すると、次の出力が表示されます。
A2:A6とB2:B6の範囲の文字列がアンダースコアで連結されており、結果が範囲C2:C6に表示されることに注意してください。
追加リソース
次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。
VBA: 文字列内の文字の出現を数える方法
VBA: 文字列に別の文字列が含まれているかどうかを確認する方法
VBA: 特定のテキストを含むセルを数える方法