concatenate from columns to cells

[Pavel Zilber]

Hello,
I need to include in 1 cell data from number of cells as in this example below.
Thank you freinds.

Input
Component part number	Top part number
3001606	3200044
3001606	3200067
3001606	3201067
Output
Component part number	Tops part numbers
3001606	3200044//3200067//3201067

 

[rbobcat1]

2019 '=CONCAT(B2,"/",B3,"/",B4)' should do the trick

Older versions '=CONCATENATE(B2,"/",B3,"/",B4)'

 

[AlanSidman]

Here is a VBA solution for you.

Option Explicit

Sub ConCat()
    Dim i As Long, lr As Long, lr2 As Long
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    lr = s1.Range("A" & Rows.Count).End(xlUp).Row
    s1.Range("A2:B2").Copy s2.Range("A1")
    For i = 3 To lr
        If s1.Range("A" & i) = s1.Range("A" & i - 1) Then
            lr2 = s2.Range("B" & Rows.Count).End(xlUp).Row
            s2.Range("B" & lr2) = s2.Range("B" & lr2) & "/" & s1.Range("B" & i)
        Else: s1.Range("A" & i & ":B" & i).Copy s2.Range("A" & lr2 + 1)
        End If
    Next i
End Sub

Standard Module
How to install your new code
Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Press Alt+F11 to open the Visual Basic Editor
Choose Insert > Module
Edit > Paste the macro into the module that appeared
Close the VBEditor
Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:
Press Alt-F8 to open the macro list
Select a macro in the list
Click the Run button

 

[Pavel Zilber]

Alan, It works!!!! thank you so much!!!!!

 

[AlanSidman]

You are very welcome