If you have one row of data, what's the easie Closed

Question

Hello,
If you have one row of data, what's the easiest way to automatically 
(programatically?) two value in same other cell. The resulting column should consist of:

1st cell and 2nd cell
3rd cell and 4th cell
5th cell and 6th cell
etc.

For example,
1 
a
2
 b
3 
c

would become:

1a
2b
3c

rizvisa1 · Answer

You can use formula and auto filter combo to delete the rows
or you can use this macro

Sub fixAndDeleteAlternateRow()

    Dim startAtRow, endAtRow, rowCounter As Long
    
    startAtRow = 2
    endAtRow = 100
    
    
    For rowCounter = startAtRow To endAtRow
        Cells(rowCounter - 1, 1) = Cells(rowCounter - 1, 1) & Cells(rowCounter, 1)
        Rows(rowCounter).Select
        Selection.Delete Shift:=xlUp
    Next

End Sub

If you have one row of data, what's the easie

1 response

Similar discussions

Subscribe To Our Newsletter!