在Excel表中，隔行換色，其實有很多方法。今天我們就來演示一下：如何通過VBA代碼來實現這個功能。
首先，我們打開一個Excel表（PS：有沒有數據都無所謂，我們只是演示隔行換色而已）。如下圖：
我們按組合鍵：【Alt】+【F11】，如下圖：
接下來，選擇【插入】→【模塊】，如下圖：
然後，我們輸入代碼，如下圖：
源代碼：：
Sub 隔行換色()
Dim h%
h = 2
Do Until Sheet1.Range("a" & h) = ""
Sheet1.Range("a" & h & ":" & "g" & h).Interior.ColorIndex = 24
h = h + 2
Loop
End Sub
源代碼註釋版：
Sub 隔行換色()
'上面這行意思：創建一個叫【隔行換色】的方法
Dim h%
'上面這行意思：申明一個變量h
h = 2
'上面這行意思：給剛才的變量h賦值為2
Do Until Sheet1.Range("a" & h) = ""
'上面這行意思：直到【a列】的【h行】單元格為空值時，結束
Sheet1.Range("a" & h & ":" & "g" & h).Interior.ColorIndex = 24
'上面這行意思：給Sheet1表【a列h行】至【g列h行】的單元格上色，顏色是24號
' "a" & h & ":" & "g" & h 看不懂的，看下一行轉化過程
' ah:gh → a2:g2 只不過此處的h是個變量，會變化
h = h + 2
'上面這行意思：給h增加2
Loop
'上面這行意思：退出語句
End Sub
'上面這行意思：結束語句
接下來，我們按組合鍵【Alt】+【F11】切換回Excel表中，【插入】→【形狀】→隨便找個圖形。這個只是用來做點擊按鈕的，啥圖形隨意。
右擊剛才畫的圖形，選擇【指定宏】
在彈出的窗口【指定宏】中，選擇【隔行換色】→【確定】
然後，我們點擊剛才畫的圖形。看效果圖：
下面附加Excel中顏色對應的標號，想該什麼顏色的，就把代碼中的24，修改成對應的標號即可。
備註：如果不記得這個標號圖，沒關係，用代碼直接生成一個。生成標號圖的代碼如下：
源代碼：
Sub 顏色代碼()
For h = 1 To 56
Cells(h, 2) = i
Cells(h, 1).Interior.ColorIndex = h
Next
End Sub
喜歡的話，請關注一下我，我會經常更新的。
閱讀更多 水上小白龍韋小寶 的文章
