Sub 合并选中列相同内容单元格()Dim rngData As RangeDim i&, lngCol&, lngFirst, lngLastOn Error Resume NextSet rngData = Application.InputBox("请选择要合并的数据列！", Default:=Selection.Address, Type:=8)Set rngData = Intersect(rngData.Parent.UsedRange, rngData)lngCol = rngData.Column 'rngData所在列lngFirst = rngData.RowlngLast = lngFirst + rngData.Rows.Count - 1Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalserngData.Parent.SelectFor i = lngLast To lngFirst + 1 Step -1If Cells(i, lngCol) = Cells(i - 1, lngCol) ThenCells(i - 1, lngCol).Resize(2, 1).MergeEnd IfNextrngData.VerticalAlignment = xlCenterApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueMsgBox "合并完成。"End Sub
01.选中某列
02.开发工具--打开VB--插入模块--复制粘贴--运行
如果觉得《【无标题】EXCEL合并选中列相同内容单元格(VBA)》对你有帮助，请点赞、收藏，并留下你的观点哦！
