編寫「宏」讓Excel自動合併選中單元格內容

　　在用Excel整理表格數據時，希望能夠自動合併選中區域內所有單元格的內容，但是Excel軟體自帶的合併功能無法滿足這個要求，應該怎麼辦呢？

　　我們可以編寫一個「宏」來實現，它可以巧妙地保存選區中所有單元格內的數據，通過循環賦值到一個變數中，最後再將結果輸出到合併后的單元格內。

1. 
   
2. 
   
3. Sub 合併單元格()
   
4. '關閉屏幕更新和警告提示
   
5. Application.ScreenUpdating = False
   
6. Application.DisplayAlerts = False
   
7. Dim i%
   
8. '循環統計選中區域的單元格數據並將其合併到StrTotal中
   
9. For i = 1 To Selection.Count
   
10. StrTotal = StrTotal & Selection.Cells(i)
    
11. Next
    
12. '設置選區格式
    
13. With Selection
    
14. .MergeCells = True
    
15. .HorizontalAlignment = xlCenter
    
16. .VerticalAlignment = xlCenter
    
17. .Value = "'" & StrTotal  '在合併數據前加 '號
    
18. End With
    
19. '恢復屏幕更新和警告提示
    
20. Application.DisplayAlerts = True
    
21. Application.ScreenUpdating = True
    
22. End Sub
    
23. 
    

複製代碼

　　將上面的宏指定給一個自定義的工具欄按鈕。接下來我們就可以測試一下結果了，如在幾個不相鄰的單元格內依次輸入不同的數據(可以是文字、字母或數字)，最後選中所有的數據區域，單擊剛才自定義的按鈕，就可以看到合併的效果了。