excel之vba快速合并单元格

孙哈航

于 2020-05-03 14:53:49 发布

阅读量2.9k

点赞数

本文链接：https://blog.csdn.net/weixin_39417722/article/details/105901501

版权

这篇博客介绍了如何使用VBA快速合并Excel中的大量单元格，以提高工作效率。通过提供的完整宏代码，读者可以学习如何实现这一功能，并在需要处理大量数据时避免手动操作的繁琐和错误。文章还提供了后记，提示对VBA不熟悉的读者可以进一步学习和练习。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

前言

平时工作中经常会用到excel的功能, 难免有一些操作不能批量处理, 比如说某一列有100w的数据需要合并单元格, 手动去点的话, 费时费力, 又不能保证准确性. 此时一般有三种办法, 1.请出公式大神 2.vba 3.vbs 论效率和学习成本来说, vba是最佳方案.

效果展示

在这里插入图片描述

完整宏代码

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