Vba で文字列を連結する方法 (例付き)


VBA で文字列を連結するには、次の方法を使用できます。

方法 1: 2 つの文字列を連結する

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

この例では、セルA2B2の文字列を連結し、結果をセルC2に表示します。

方法 2: 2 つの文字列を区切り文字で連結する

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

この例では、セルA2B2の文字列を文字列の間にスペースを入れて連結し、結果をセル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:A6B2:B6の文字列を文字列間にアンダースコアを入れて連結し、結果をセルC2:C6に表示します。

次の例は、これらの各メソッドを実際に使用する方法を示しています。

例 1: 2 つの文字列を連結する

次のマクロを作成して 2 つの文字列を連結できます。

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

このマクロを実行すると、次の出力が表示されます。

セルA2B2の文字列がセルC2に連結されていることに注意してください。

例 2: 2 つの文字列を区切り文字で連結する

次のマクロを作成して、スペースを区切り文字として 2 つの文字列を連結できます。

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

このマクロを実行すると、次の出力が表示されます。

セルA2B2の文字列がスペースを挟んで連結されており、その結果がセル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:A6B2:B6の範囲の文字列がアンダースコアで連結されており、結果が範囲C2:C6に表示されることに注意してください。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 文字列内の文字の出現を数える方法
VBA: 文字列に別の文字列が含まれているかどうかを確認する方法
VBA: 特定のテキストを含むセルを数える方法

コメントを追加する

メールアドレスが公開されることはありません。 が付いている欄は必須項目です