How to concatenate texts of multiple cells into a textbox in Excel?

It may be easy for you to concatenate texts of multiple cells into a new cell with formula. But do you know how to concatenate multiple cell values into a textbox (ActiveX Control)? Actually, the method in this article can help you to achieve it.

Concatenate texts of multiple cells into a textbox with VBA code

Concatenate texts of multiple cells into a textbox with VBA code

The below method can help you to concatenate texts of multiple cells into a textbox in Excel.

1. In the worksheet you want to concatenate multiple cells, insert a textbox by clicking Developer > Insert > Text Box (ActiveX Control). See screenshot:

2. Then click Developer > Insert > Command Button (ActiveX Control) to insert a command button into the worksheet.

3. Right-click the inserted command button, then select View Code from the context menu. See screenshot:

4. In the Microsoft Visual Basic for Applications window, please replace the original code with below VBA code.

VBA code: Concatenate texts of multiple cells into a textbox

Private Sub CommandButton1_Click()
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    On Error Resume Next
    Set xRg = Application.Selection
    If xRg Is Nothing Then Exit Sub
    With Me.TextBox1
        .Text = vbNullString
        .MultiLine = True
        .WordWrap = True
        For Each xCell In xRg
            xStr = xCell.Value
            .Text = Me.TextBox1 & xStr & Chr(10)
        Next
    End With
End Sub

Note: CommandButton1 is the name of the inserted command button. Please change it based on your need.

5. Turn off the Design Mode by clicking Developer > Design Mode.

6. Select the cells you need to concatenate the texts into a textbox, then click the Command Button. And then all selected cells’ contents are concatenated into the textbox immediately as below screenshot shown.

Related articles:

• How to auto select text of a textbox when it is selected in Excel?
• How to autocomplete a textbox when typing in Excel?
• How to clear contents of textbox when clicked in Excel?
• How to disable editing in textbox to prevent user inputting in Excel?
• How to format a textbox as a percentage in Excel?