Excel批量合并相同内容的单元格!

自我提升也是一种修养数万Excel爱好者聚集地

2021年2月10日 周三

【Excel情报局|文案回收铺子】

在心情最糟糕的时候
仍会按时吃饭

早睡早起,自律如昔
这样的人才是能扛事的人

人事再乱,打不乱你心
人不需要有那么多过人之处

能扛事就是才华横溢

如下图所示,如何批量将左图中A列相同的组别合并显示成右图F列那样呢?
普通青年说了,相同的一部分一部分选中,点击合并单元格不就行了。但是如果数据量很大,那就惨了。
我们可以利用一段VBA代码,瞬间批量完成这种操作。
右击工作表-查看代码-复制粘贴代码至VBA代码窗口-点击运行-弹出选择单列数据列对话框-选中A列-确定完成即可。
复制粘贴如下代码即可:
Sub MergeRange()
Dim rngData As Range
Dim i&, lngCol&, lngFirst, lngLast
On Error Resume Next
Set rngData = Application.InputBox("请选择单列数据列!", Default:=Selection.Address, Type:=8)
Set rngData = Intersect(rngData.Parent.UsedRange, rngData)
lngCol = rngData.Column 'rngData所在列
lngFirst = rngData.Row
lngLast = lngFirst + rngData.Rows.Count - 1
Application.ScreenUpdating = False
Application.DisplayAlerts = False
rngData.Parent.Select
For i = lngLast To lngFirst + 1 Step -1
If Cells(i, lngCol) = Cells(i - 1, lngCol) Then
Cells(i - 1, lngCol).Resize(2, 1).Merge
End If
Next
rngData.VerticalAlignment = xlCenter
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "合并完成。"
End Sub
视频演示:

286期(个)Office技巧学习视频

免费打包下载方式
百度云下载链接
https://pan.baidu.com/s/1VzuHfu9LTgYokcb6b4w4mQ
扫描下方二维码 关注公众号
上方公众号后台聊天窗口
回复关键字
我要学习
获取下载 提取码
阅读完文章之后,希望大家在文末帮我点亮“在看”按钮,坚持的路上需要有你们的鼓励
如何在【Excel情报局】微信公众号内通过输入关键字搜索历史文章?
常识普及:
①第1步:进入【Excel情报局】微信公众号,点击底部菜单“情报.xls”
②第2步:点击“历史文章”按钮
③第3步:顶部搜索框内输入你要搜索的关键字,比如“合并”,点击确定,进行搜索。参照下面视频操作:
相互尊重,抱团成长。
Excel2016版安装包(含永久激活工具) 百度网盘
下载链接:
https://pan.baidu.com/s/11eE-oGEyHojXHoYSuDbBAA
(0)

相关推荐

  • Excel VBA中的cells单元格的用法

    cells的常见用法是进行赋值运算,如:cells(1,2)=cells(1,1),同样的道理,cells也可以赋给任意一个变量,这里要说明一下,cells直接赋值的话一般是将cells里面的数值赋值 ...

  • Excel vba双击单元格代码

    为什么要使用vba双击单元格,那是因为Excel中的数据,通过复制粘贴过来以后,不会马上变成所设置的单元格的数据类型,而是要通过双击才能变成Excel所需要的数据. 就比如说,身份证中提取过来的出生年 ...

  • Excel批量合并相同内容单元格,并实现逆向操作,批量取消合并单元格恢复原样!

    Excel情报局 Excel职场联盟 生产挖掘分享Excel基础技能 Excel爱好者大本营 用1%的Excel基础搞定99%的职场问题 做一个超级实用的Excel公众号 Excel是门手艺玩转需要勇 ...

  • Excel如何批量合并起止日期到一个单元格

    这种合并起止日期真的是万不得已才进行的,通常都是要做成汇报表格给领导或客户看才会需要这样合并.平时做数据统计,一定是开始日期一列,完成日期一列. 由于日期格式在单元格内部是数据编码,所以直接用连接符连 ...

  • 干货分享丨Excel批量删除空白行列和单元格

    之前跟大家讲过了Word文档中如何批量去除空格,反馈都不错,简单易上手也比较实用,今天要讲的是Excel表格中如何批量去除空白行和列,也是个简单好用的小技巧,能在不经意间节省时间,提升效率,早点下班! ...

  • Excel批量拆分强制换行的单元格数据

    Excel批量拆分强制换行的单元格数据

  • 548.Office技巧: 如何批量合并起止日期到一个单元格?

    Excel技巧: 如何批量合并起止日期到一个单元格? 前几天,一位美女HR的问题,如何将开始日期和完成日期,合并到一个单元格里面,中间加条小曲线.类似下面的截图. 我们赶紧来试试,如果直接用& ...

  • 447.Office技巧:如何批量合并相同内容的Excel单元格?

    如何批量合并相同内容的单元格? 前几期,牛闪闪介绍过如何利用F5定位批量撤销合并的单元格,但小伙伴们似乎意犹未尽,问问如何反向合并单元格呢?比如把下表中B列销售人员相同的人进行合并? 很明显要实现效果 ...

  • Excel中如何批量合并相同内容单元格

    Excel表格录入数据后,发现一些部门名称重复录入太多,看上去也比较复杂,怎么才能将所有重复内容全部合并到一个单元格中去呢? 最终效果 1.首先,我们要选中需要合并的列,「数据」-「分级显示」-「分类 ...

  • excel中如何把多个单元格内容合并起来

    Janny晗2018-11-26 在excel实际应用中我们有些时候需要把多个单元格内容进行合并,那么如何实现这一要求呢? 方法 1/5 打开需要合并的excel表 找excel表格两列合并?就上阿里 ...

  • Excel批量合并单元格,点点鼠标,30秒完成

    [温馨提示]亲爱的朋友,阅读之前请您点击[关注],您的支持将是我最大的动力! 我们都知道,在Excel中合并单元格是个非常闹心的事,合并单元格后进行数据筛选.求和之类操作计算时,往往会出现错误.但合并 ...