VBA宏：將兩列合並為1

Question

我已經檢查了stackoverflow中有關使用宏在excel中合並單元格的所有答案，但是我很難理解代碼。

說明：我想將包含“姓氏”和“名字”的兩個單元格合並到第3行的一個單元格中。

感謝您的幫助。

Answer 1

使用以下數據：

運行此宏：

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

將產生：