Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 新闻动态
  • Excel资源
  • 关于我们

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中交流网 联系方式

QQ:18449932 


网  址:www.excel-cn.com  

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

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

Excel中,为了展示数据的的格式美观统一,易于理解。我们一般都会把相同的表头合并单元格。

如果一个个设置的话,会相当的麻烦。如何如何批量进行呢


如下示例:对下面表格的相同姓名进行合并

姓名数量
张三76      
张三51
李四83
李四34
李四68
李四83
王五66
王五93
王五61
小才子40
小才子46
小才子76
小才子36
小才子63


详细VBA代码

Sub 合并()

    

    Dim ln%, i%

    Application.DisplayAlerts = False    

    ln = [A65536].End(xlUp).Row

    

    For i = ln To 2 Step -1

        If Cells(i, 1) = Cells(i - 1, 1) Then

            Range(Cells(i - 1, 1), Cells(i, 1)).Merge

        End If

    Next

    Application.DisplayAlerts = True

    

End Sub


建立一个模块,并建立一个合并过程,编写上面的代码,将文件另存为xlsm格式,要不然重新打开这段代码就消失了!

运行结果在【开始】-【开发工具】-【宏】


动态效果图

e1.gif

代码只限数据源在A列,如果不是在A列,在其他列呢?


参考至:Excel自学成才(头条号)



点击次数:  更新时间:2017-08-15 15:38:08  【打印此页】  【关闭】
上一条:Excel利用ADO录入数据  下一条:实例比较ExcelVBA的四种选择结构和函数
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

Excel交流网 版权所有 1999-2020 粤ICP备10043721号

QQ:18449932

免费Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表、Excel VBA

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2023  www.metinfo.cn