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

发布网友发布时间：2022-04-21 21:48

共2个回答

热心网友时间：2023-06-24 06:37

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

出来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

热心网友时间：2023-06-24 06:38

右边的格子是空白啊
如要合并A1和 B1到C1的话，在C1内使用公式“=A1&B1”即可。追问就是要合并呢个空白的格子，而且几千个，求批量合并方法

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

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