Excel如何快速批量合并相同内容？VBA法

    这里我们介绍最后一种方法，也是最方便的方法，当然这些都是在写好代码的基础上来说的，VBA法，VBA是excel自带的一种编程语言，需要一定的基础才能编写，不过大家不用担心，代码比较通用，按照步骤操作即可。请看动画演示   

工具/原料

电脑一台

OFFICE-EXCEl2007及以上版本（2003略有差异）

方法/步骤

  首先，我们在任意工作表标签上右击选择，查看代码，进入下一步。

   进入VBE界面以后，我们在工程窗口在，在工作表名称中标签上右击插入，选择插入模块。

 模块插好后，双击模块，粘贴如下代码：

1. Sub 合并单元格()      
2. Dim Mrow&, i&, k&, d As Object      
3. Application.DisplayAlerts = False      
4. Set d = CreateObject("scripting.dictionary")      
5. With Sheets(1)      
6. Mrow = .Cells(Rows.Count, 1).End(3).Row      
7. For i = 1 To Mrow      
8.     d(.Cells(i, 1)) = ""     
9. Next      
10. For k = 0 To d.Count - 1      
11.     For i = 1 To Mrow - 1      
12.         If .Cells(i, 1) = .Cells(i + 1, 1) Then      
13.             .Range("A" & i & ":A" & i + 1).Merge      
14.         End If      
15.     Next      
16. Next      
17. End With      
18. Application.DisplayAlerts = True