excel合并相同列数据到同一单元格 怎样合并？ 10分
答案:1 悬赏:10 手机版
解决时间 2021-02-22 05:05
- 提问者网友：聂風
- 2021-02-21 09:43
excel合并相同列数据到同一单元格 怎样合并？ 10分
最佳答案
- 五星知识达人网友：山君与见山
- 2021-02-21 10:56
用VBA。
按Alt+F8，宏名输“合并等值”后，点创建把以下代码：
Sub 合并等值()
End Sub
改成以下
Sub 合并等值()
Dim rgScan As Range, rgPrev As Range, rgFirst As Range
Application.DisplayAlerts = False
Set rgFirst = Selection(1, 1)
Set rgPrev = Selection(1, 1)
For Each rgScan In Selection
If rgScan rgFirst Then
Range(rgFirst, rgPrev).Merge
Set rgFirst = rgScan
End If
Set rgPrev = rgScan
Next rgScan
Range(rgFirst, rgPrev).Merge
Application.DisplayAlerts = True
End Sub
关闭弹出的窗口
回到 Excel 选中需处理的区域。（只能选一列。）
再按 Alt+F8
点 合并等值 后再执行。刷地就改好了。
按Alt+F8，宏名输“合并等值”后，点创建把以下代码：
Sub 合并等值()
End Sub
改成以下
Sub 合并等值()
Dim rgScan As Range, rgPrev As Range, rgFirst As Range
Application.DisplayAlerts = False
Set rgFirst = Selection(1, 1)
Set rgPrev = Selection(1, 1)
For Each rgScan In Selection
If rgScan rgFirst Then
Range(rgFirst, rgPrev).Merge
Set rgFirst = rgScan
End If
Set rgPrev = rgScan
Next rgScan
Range(rgFirst, rgPrev).Merge
Application.DisplayAlerts = True
End Sub
关闭弹出的窗口
回到 Excel 选中需处理的区域。（只能选一列。）
再按 Alt+F8
点 合并等值 后再执行。刷地就改好了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯