前言

Excel合并單元格是有人愛有人恨的功能，一般來(lái)說數(shù)據(jù)分析師都非常憎恨這個(gè)功能，因?yàn)楹喜卧癯３ｔ[幺蛾子，導(dǎo)致數(shù)據(jù)統(tǒng)計(jì)和格式化障礙重重。

---

格式篇

對(duì)于普通的規(guī)整數(shù)據(jù)，如果需要設(shè)置成間隔填充顏色，可以說是so easy。功能區(qū)中點(diǎn)幾下鼠標(biāo)（開始>>套用表格格式），選中自己喜歡的表格樣式，瞬間完成這個(gè)任務(wù)。
如果數(shù)據(jù)表是有合并單元格的，套用表格格式，杯具了… …，合并單元格都不見了，欲哭無(wú)淚呀！

領(lǐng)導(dǎo)就要用這樣的合并單元格，你就忍了吧。只要學(xué)會(huì)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列的單元格底色，然后循環(huán)處理有A列中的有數(shù)據(jù)的單元格。如果單元格屬于某個(gè)合并單元格，那么MergeCells屬性返回值為True，對(duì)于合并區(qū)域中的任何一個(gè)單元格，都可以使用Range(..).MergeArea.Address返回整個(gè)合并區(qū)域的引用地址。在示例代碼，使用Cells.Count進(jìn)而獲取當(dāng)前合并區(qū)域單元格數(shù)量。
設(shè)置間隔色時(shí)，對(duì)于連續(xù)單元格區(qū)域，通常會(huì)根據(jù)行號(hào)的奇偶來(lái)決定是否設(shè)置填充色，但是對(duì)于不規(guī)則合并區(qū)域，這中判斷方式，已經(jīng)不再適合。代碼中使用了一個(gè)邏輯變量，作為是否設(shè)置當(dāng)前單元格格式的標(biāo)志位，每次循環(huán)時(shí)bFlag = Not bFlag實(shí)現(xiàn)標(biāo)志位反轉(zhuǎn)，以實(shí)現(xiàn)隔行填充的效果。

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。