VBA宏：将两列合并为1

Question

我已经检查了stackoverflow中关于使用宏合并excel中的单元格的所有答案，但我很难理解代码。

描述： 我想合并包含＆＃34;姓氏＆＃34;的两个单元格。和＆＃34;名字＆＃34;进入第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

将产生：