1：設定條件格式
選中資料區域，操作步驟如下。
設定條件格式
條件格式---》新建規則---》使用公式確定要設定格式的單元格---》在文字框中輸入公式：
輸入公式 =(CELL("row")=ROW())+(CELL("col")=COLUMN())
然後選擇格式，填充你需要填充的顏色。
2：編寫VBA程式碼
在工作表標籤處右鍵，選擇檢視程式碼，開啟VBA編輯器，在程式碼視窗中貼上下列程式碼：
設定完成。
1：設定條件格式
選中資料區域，操作步驟如下。
設定條件格式
條件格式---》新建規則---》使用公式確定要設定格式的單元格---》在文字框中輸入公式：
輸入公式 =(CELL("row")=ROW())+(CELL("col")=COLUMN())
然後選擇格式，填充你需要填充的顏色。
2：編寫VBA程式碼
在工作表標籤處右鍵，選擇檢視程式碼，開啟VBA編輯器，在程式碼視窗中貼上下列程式碼：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Application.CalculateEnd Sub設定完成。
另一種方法，直接上VBA在工作表標籤處右鍵，選擇檢視程式碼，開啟VBA編輯器，在程式碼視窗中貼上下列程式碼：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = 0 "清除所有背景色Rows(Target.Row).Interior.ColorIndex = 40 "設定當前列顏色Columns(Target.Column).Interior.ColorIndex = 40 "設定當前行顏色End Sub