我們使用的Excel應用程序，默認打開任何Excel文件後，不管輸入任何數據，單元格的底紋顔色都是無色的，如果我們有大量行數和列數的數據在裡面，在看某一個行或某一列的數據時，會顯得很不方便。

用過其他管理軟件系統的朋友應該對數據錄入或者查看界面的表格數據間隔設置印象深刻，非常利于用戶直觀看到具體某行或者某列的數據，由于行與行 或者 列與列 之間用不同的顔色間隔顯示，對比非常明顯，查看數據也不會因為看錯行數或列數而導緻看錯目标單元格内的數據。

雖然說Excel默認不情況下沒有這個功能，但是我們可以自己通過設置或者編碼來實現，那麼筆者這裡就展示通過VBA代碼來設置Excel工作表内已使用單元格區域的底紋間隔顔色，從而可以仿效其他管理軟件系統一樣對工作表内的數據做簡單區分。

準備工作如下：

在新創建的名為“示例數據”的Excel文件内填充一些數據，用于測試，如下截圖示：

經過編碼後的執行過程，其實執行過程在數據量很少的情況下，時間極短，筆者為了有一個中間過渡，讓它顔色間隔設置完成後彈出一個提示對話框：

最終結果如下：

完整的示例代碼截圖如下所示：

下面是完整的示例代碼：

Sub 設置間隔顔色()

Dim rngs As Excel.Range

Dim rowCount As Integer, columnCount As Integer

Dim i As Integer, j As Integer

Set rngs = ActiveSheet.UsedRange

rowCount = rngs.Rows.Count

columnCount = rngs.Columns.Count

For i = 1 To rowCount

If i Mod 2 <> 0 Then

For j = 1 To columnCount

rngs.Cells(i, j).Interior.Color = RGB(255, 0, 0)

Next j

Else

For j = 1 To columnCount

rngs.Cells(i, j).Interior.Color = RGB(0, 255, 0)

Next j

End If

Next i

Set rngs = Nothing

MsgBox "顔色間隔設置完成！"

End Sub

感興趣的朋友，可以在此基礎上加以完善。筆者這裡隻是随意設置了單元格區域的底紋顔色，實際開發時，為了有良好的用戶體驗，底紋建議設置淺色，避免顔色過于鮮豔，影響用戶查看浏覽數據的視覺疲勞。