|
本帖最后由 晨光晞微 于 2023-10-16 10:31 编辑
- Sub 同类合并()
- Dim r As Long, nRow As Long
- Application.DisplayAlerts = False '关闭提示,如果不关闭会反复提示是否合并单元格
- Application.ScreenUpdating = False '关闭屏幕刷新,避免程序执行过程中屏幕卡顿
- With Selection
- nRow = Selection.Rows.Count '获取行数
- For r = nRow - 1 To 1 Step -1 '遍历所有选中的行,但是要注意这里一定要倒序遍历
- If Selection.Cells(r, 1) = Selection.Cells(r + 1, 1) Then '判断前后单元格内容是否相同
- Range(Selection.Cells(r, 1), Selection.Cells(r + 1, 1)).Merge '如果相同执行合并单元格
- End If
- Next
- End With
- Application.DisplayAlerts = True '重新打开提示功能
- Application.ScreenUpdating = True '重新打开屏幕刷新
- End Sub
复制代码
使用VBA或WPS的智能合并,然后复制A列单元格粘贴到D列,清除D列内容。VBA代码如上,选中A列活动单元格再运行代码 |
评分
-
1
查看全部评分
-
|