這里我們介紹最后一種方法，也是最方便的方法，當然這些都是在寫好代碼的基礎上來說的，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