Skip to main content Skip to main content

Merging Multiple Cell Values into Excel

1) In the Excel list, do the following:

  • Sort the list in the order

  • Use the below suggested code to write a User Defined Function (UDF) in VBA to rerrange information in the Excel list as the format below.

Mary Form1
Mary Form2
Ken Form1
Bob Form3
Bob Form1




Mary Form1, Form2
Bob Form3, Form1
Ken Form1
  • Make sure enable the Developer tab (File tab > Options > Customize Ribbon > select Developer check box under Main Tabs hierarical menu) and select Visual Basic command

  • In the VBA window, paste the below code in the standard Module B (click the down arrow next to InsertUser Form icon on the Toolbar > Module)

Sub Rearrange()
    Dim lr As Long, r As Long
    Application.ScreenUpdating = False
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For r = lr To 2 Step -1
        With Cells(r, 1)
            If .Value = .Offset(-1).Value Then
                .Offset(-1, 1).Value = .Offset(-1, 1).Value & ", " _
                                        & .Offset(, 1).Value
            End If
        End With
    Next r
    Application.ScreenUpdating = True
End Sub
  • Leave the VBA window

  • Select the entire of Excel list  

  • Under Develop tab, click Marco command

  • In the Macro dialog box, select the macro name called Rearrange > click Run button

  • Save the Excel list either with Macro-embed or as a regular Excel file

2) In the Excel database file, merge the data between two spreadsheets by combining two formulas INDEX and MATCH

  • INDEX function: =INDEX(data_range, row_number, column_number)

  • INDEX and MATCH combined function:



Edit this page