Microsoft Office Forums - View Single Post - Merge records split between two rows into single row

Buzoka · 02-27-2019, 10:15 PM

I am trying to create VBA code that will allow a user select a range of data and recombine records split between two lines into a single line and remove the blank lines. See attached images of the data Before and what is expected after processing.

Below is code i tried

Code:

Sub GetRowData()
    Dim Myrange As Range
    Dim Myrow As Range
    Set Myrange = Selection
    Dim strVal As String
    Dim sHold As String
    
    For Each Myrow In Myrange.Rows
    If Myrow.Row Mod 2 = 0 Then
    strVal = Myrow.Columns(1).Cells
    Myrow.Columns(1).Value = ""
    'MsgBox Myrow.Offset(1, -1).Address
    'Myrow.Offset(1, -1).Cells = strVal
    ActiveCell.Offset(1, -1).Value = strVal
    End If
    Next Myrow
End Sub