合并相同内容单元格的最快方法批量合并单元格怎么弄 _生活百科

在工作中，有时我们需要将相同内容的单元格合并为一个单元格。如果一个个选中内容后合并，显然会花费较多时间。本文和大家分享如何10秒钟合并100W行方法合并相同内容单元格。
大家好，我们今天分享的VBA小代码，内容是批量合并相同值的单列单元格。
如下图所示，A1:B10000为各销售部门员工名单。要求将销售部门相同的，合并为一个单元格，效果所示。

文章插图

文章插图
照例举个例子，如下图所示，需要将相同的单元格修改为合并单元格…… 。
该段代码只支持单列单元格区域，A:A整列。
代码如下：
Sub MergeRange()Dim Rng As RangeDim i&, Col&, Fist, LastApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseSet Rng = Application.InputBox(\"请选择单列数据列！\", Type:=8)Set Rng = Intersect(Rng.Parent.UsedRange, Rng)Col = Rng.ColumnFist = Rng.RowLast = Fist + Rng.Rows.Count - 1Rng.Parent.SelectFor i = Last To Fist + 1 Step -1If Cells(i, Col) = Cells(i - 1, Col) Then Cells(i - 1, Col).Resize(2, 1).MergeNextRng.VerticalAlignment = xlCenterMsgBox \"合并完成。\"Application.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd SubExcel自动化办公吧
【合并相同内容单元格的最快方法批量合并单元格怎么弄】Excel之家每日分享excel操作技巧、excel函数公式、excel透视表、excel图表和ExcelVBA教程，助您加强excel水平,提高办公效率，搞定数据分析!

合并相同内容单元格的最快方法批量合并单元格怎么弄

推荐阅读

凯路威后悬架是独立悬架吗

微信好友辅助怎么弄? 微信好友辅助怎么弄

撰写出色论文引言的三大技巧引言怎么写

ea211都装配了哪些车 ea211装在哪些车上

郑芬芬八字命理分析

高压锅炖排骨几分钟能炖好高压锅蒸排骨多少分钟

袁灵犀名字打分109分

葫芦岛特产葫芦岛特产方便送人的

泡澡和汗蒸哪个好泡澡和汗蒸能一起做吗

洪州在哪里，古代的洪州是现在的哪里？

花蛤蜊吃多了会怎么样？？？

什么叫存在未入库费款什么叫存在

关于深圳7天酒店世界之窗店简述深圳7天酒店世界之窗店

地推扫码小礼品扫码送什么礼品地推

国家博物馆到北京动物园北京国家动物博物馆怎么走

什么是奇亚籽有什么功效什么是奇亚籽

梦到自己捡了两次钱

外地人在石家庄住院怎么报销外地人在石家庄看病能报销吗

win10电脑截图按哪三个快捷键你知道吗 win10电脑截图按哪三个键

秒懂少儿小知识大世界视频秒懂少儿小知识大世界动物

合并相同内容单元格的最快方法 批量合并单元格怎么弄

推荐阅读

合并相同内容单元格的最快方法批量合并单元格怎么弄