excel如何合并相同的行

发布网友 发布时间：2022-04-23 15:36

我来回答

共5个回答

热心网友 时间：2023-10-08 17:43

复制下面代码 设个快捷键搞定

Sub 合并()

Dim x As Integer

Application.Goto Reference:="合并"

Application.DisplayAlerts = False

x = InputBox("输入数字比如A列输入1", "输入你要合并的列数")

For i = [A65536].End(3).Row To 2 Step -1

If Cells(i - 1, x) = Cells(i, x) Then

Range(Cells(i - 1, x), Cells(i, x)).Merge

End If

Next

Application.DisplayAlerts = True

MsgBox ("合并成功,祝您愉快")

MsgBox ("QQ:280269085")

End Sub

把代码粘贴进去在点击宏 选项 快捷键设置成CTRL+q

以后想用直接CTRL+q就可以方便使用 

如果喜欢可以加弹出来的QQ号

热心网友 时间：2023-10-08 17:44

用数据透视表透视，在设计里面布局和格式合并

热心网友 时间：2023-10-08 17:44

先合并一行，然后选中复制，再选中所有要合并的，直接粘贴就可以了

热心网友 时间：2023-10-08 17:45

写代码来自动合并相同数据单元格

热心网友 时间：2023-10-08 17:45

选中相同的，工具栏里合并单元格