用VBA快速合并excel同一列中的等值和对不规则的单元格填充序号的方法

1.用VBA快速合并excel同一列中的等值

在日常使用excel的过程中，常会遇到需要对多组相同数据内容的单元格进行合并的情形，如果有几百组相同数据需要合并，每组选中后点击合并按钮，效率是非常低下的，在此，介绍使用VBA（宏命令）实现一键快速合并相同单元格内容的方法。

首先是创建宏，在excel中按Alt+F8，输入宏名“合并等值”点创建，把下列代码复制到：“Sub 合并等值()”和“End Sub"之间。如下图所示：

代码如下：

Sub 合并等值()

Dim rgScan As Range, rgPrev As Range, rgFirst As Range

Application.DisplayAlerts = False

  Set rgFirst = Selection(1, 1)

  Set rgPrev = Selection(1, 1)

  For Each rgScan In Selection

      If rgScan rgFirst Then

          Range(rgFirst, rgPrev).Merge

          Set rgFirst = rgScan

      End If

  Set rgPrev = rgScan

  Next rgScan

  Range(rgFirst, rgPrev).Merge

  Application.DisplayAlerts = True

关闭弹出的窗口，回到 Excel 选中需处理的列，按 Alt+F8后点合并等值。

2.对不规则的单元格填充序号的方法

用下列函数实现对不规则的单元格（即有合并的单元格也有没有合并的单元格）填充序号。

"=COUNT($A$3:A3)+1",从A4选定需要填充序号的单元格，按ctrl+enter。