前言

Excel合并單元格是有人愛有人恨的功能，一般來說數據分析師都非常憎恨這個功能，因為合并單元格常常鬧幺蛾子，導致數據統計和格式化障礙重重。

---

格式篇

對于普通的規整數據，如果需要設置成間隔填充顏色，可以說是so easy。功能區中點幾下鼠標（開始>>套用表格格式），選中自己喜歡的表格樣式，瞬間完成這個任務。
如果數據表是有合并單元格的，套用表格格式，杯具了… …，合并單元格都不見了，欲哭無淚呀！

領導就要用這樣的合并單元格，你就忍了吧。只要學會MergeCells和MergeArea屬性，VBA代碼立即搞定合并單元格格式。

Sub FormatMergedArea()Dim c As Range, bFlag, rngColumns(1).Interior.Color = xlNonelst = Cells(Rows.Count, 1).End(xlUp).RowFor i = 1 To lstSet c = Cells(i, 1)If c.MergeCells ThenSet c = c.MergeAreai = i + c.Cells.Count - 1End IfIf Not bFlag Then c.Interior.Color = vbYellowbFlag = Not bFlagNext End Sub

首先清除第1列的單元格底色，然后循環處理有A列中的有數據的單元格。如果單元格屬于某個合并單元格，那么MergeCells屬性返回值為True，對于合并區域中的任何一個單元格，都可以使用Range(..).MergeArea.Address返回整個合并區域的引用地址。在示例代碼，使用Cells.Count進而獲取當前合并區域單元格數量。
設置間隔色時，對于連續單元格區域，通常會根據行號的奇偶來決定是否設置填充色，但是對于不規則合并區域，這中判斷方式，已經不再適合。代碼中使用了一個邏輯變量，作為是否設置當前單元格格式的標志位，每次循環時bFlag = Not bFlag實現標志位反轉，以實現隔行填充的效果。

總結

以上是生活随笔為你收集整理的VBA处理工作表合并单元格 - 格式篇的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。