VBA Macro: Merging two columns into 1

Question

I've checked all the answers in stackoverflow about merging cells in excel using macro, but I'm having a hard time understanding the codes.

Description: I want to MERGE the two cells which contains "Lastname" and "Firstname" into one cell in row 3.

Thanks for helping guys.

Gary's Student · Accepted Answer · 2015-03-07 16:02:01Z

1

With data like:

enter image description here

Running this macro:

Sub MerThem()
    Set r = Range("3:3").Find(what:="Lastname", After:=Range("3:3")(1))

    v = r.Value & r.Offset(0, 1).Value
    r.Clear
    r.Offset(0, 1).Clear
    Range(r, r.Offset(0, 1)).MergeCells = True
    r.Value = v
End Sub

Will produce:

enter image description here

answered Mar 7, 2015 at 16:02

Gary's Student

96.9k10 gold badges66 silver badges104 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA Macro: Merging two columns into 1

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related