Question

EXCEL表格如何隔行批量合并又不覆盖原有内容

如图，想要每个工商局注册号所在的格子能与右边的格子合并，如果用格式刷会覆盖调原有内容，如何既不覆盖原有内容又能批量合并？

Answer 1

在工作表标签上击右键，查看代码，

出来VBE窗口。点“插入”，模块。在左侧”模块“中双击，在右侧的模块代码窗格中粘贴以下代码，然后按ALT+F8运行宏，就行了。（附件中有样本，假设你要合并的是BC两列。）

Sub 隔行合并()

Sub 隔行合并()
Dim c
For i = 2 To [b65536].End(3).Row
If i Mod 2 = 1 Then
    c = CStr(Cells(i, 2)) & CStr(Cells(i, 3))
    Cells(i, 2) = ""
    Cells(i, 3) = ""
    Range("B1:C1").Offset(i - 1, 0).Merge
    Cells(i, 2) = c
    c = ""
    End If
    Next
End Sub

Answer 2

右边的格子是空白啊
如要合并A1和 B1到C1的话，在C1内使用公式“=A1&B1”即可。

追问

就是要合并呢个空白的格子，而且几千个，求批量合并方法

追答

使用上面的公式合并第一行后，以下用填充柄拖动填充即可。几千个没问题啊，用不了1分钟吧。

可能我没有理解你的意思，你是不是想把“工商局注册号”这个单元格的内容移到它的右边空格内呢？
如果是这样的话，请在它们的右侧空白的一列内输入公式(假设“工商局注册号”在B列“手机”在C列，新数据在D列)
=IF(B2="工商局注册号",B2&C2,C2)
以下用填充柄填充。