在工作中,有时我们需要将相同内容的单元格合并为一个单元格。如果一个个选中内容后合并,显然会花费较多时间。本文和大家分享如何10秒钟合并100W行方法合并相同内容单元格。
大家好,我们今天分享的VBA小代码,内容是批量合并相同值的单列单元格。
如下图所示,A1:B10000为各销售部门员工名单。要求将销售部门相同的,合并为一个单元格,效果所示。
照例举个例子,如下图所示,需要将相同的单元格修改为合并单元格……。
该段代码只支持单列单元格区域,A:A整列。
代码如下:
Sub MergeRange()
Dim Rng As Range
Dim i&, Col&, Fist, Last
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Rng = Application.InputBox("请选择单列数据列!", Type:=8)
Set Rng = Intersect(Rng.Parent.UsedRange, Rng)
Col = Rng.Column
Fist = Rng.Row
Last = Fist + Rng.Rows.Count - 1
Rng.Parent.Select
For i = Last To Fist + 1 Step -1
If Cells(i, Col) = Cells(i - 1, Col) Then Cells(i - 1, Col).Resize(2, 1).Merge
Next
Rng.VerticalAlignment = xlCenter
MsgBox "合并完成。"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
「真诚赞赏,手留余香」
真诚赞赏,手留余香
使用微信扫描二维码完成支付
转载请注明:首页 > 投稿 » 怎样批量合并相同单元格(批量合并相同值单元格教程)
发表评论
版权声明
求资源网所发布的一切破解补丁,软件,以及其他分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途。
否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。