Tekenreeksen samenvoegen in vba (met voorbeelden)

U kunt de volgende methoden gebruiken om tekenreeksen in VBA samen te voegen:

Methode 1: Voeg twee strings samen

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

In dit voorbeeld worden de tekenreeksen in de cellen A2 en B2 samengevoegd en wordt het resultaat weergegeven in cel C2 .

Methode 2: Voeg twee tekenreeksen samen met een scheidingsteken

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

In dit voorbeeld worden de tekenreeksen in de cellen A2 en B2 samengevoegd met een spatie tussen de tekenreeksen en wordt het resultaat weergegeven in cel C2 .

Methode 3: Voeg twee kolommen samen met een scheidingsteken

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

In dit voorbeeld worden de tekenreeksen in de bereiken A2:A6 en B2:B6 samengevoegd met een onderstrepingsteken tussen de tekenreeksen en worden de resultaten weergegeven in de cellen C2:C6 .

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken.

Voorbeeld 1: Voeg twee strings samen

We kunnen de volgende macro maken om twee tekenreeksen samen te voegen:

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat de tekenreeksen uit de cellen A2 en B2 zijn samengevoegd in cel C2 .

Voorbeeld 2: Voeg twee tekenreeksen samen met een scheidingsteken

We kunnen de volgende macro maken om twee tekenreeksen samen te voegen met een spatie als scheidingsteken:

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat de tekenreeksen in de cellen A2 en B2 zijn samengevoegd met een spatie ertussen en dat het resultaat wordt weergegeven in cel C2 .

Voorbeeld 3: Voeg twee kolommen samen met een scheidingsteken

We kunnen de volgende macro maken om tekenreeksen in twee kolommen samen te voegen met een onderstrepingsteken als scheidingsteken:

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat de tekenreeksen in het bereik A2:A6 en B2:B6 zijn samengevoegd met een onderstrepingsteken ertussen en dat de resultaten worden weergegeven in het bereik C2:C6 .

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: het aantal tekens in een string tellen
VBA: hoe controleer je of een string een andere string bevat?
VBA: cellen tellen met specifieke tekst