标签：VBA Last 同类项 Excel Cells Rng Application Fist Col

合并一列中内容相同单元格

Sub MergeRange()
Dim Rng As Range
Dim i&, Col&, Fist, Last
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
Application.ScreenUpdating = False
Application.DisplayAlerts = False
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
End If
Next
Rng.VerticalAlignment = xlCenter
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "合并完成。"
End Sub

完成一列后，可使用格式刷对其他列进行合并。

标签：VBA,Last,同类项,Excel,Cells,Rng,Application,Fist,Col
来源： https://www.cnblogs.com/qiuya/p/16301673.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。