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
