選擇範圍，開始---條件格式---- 新建規則， 使用公式確定。。。。。輸入：=(ROW()=CELL("row"))+(COLUMN()=CELL("col"))格式 填充，選擇一種顏色 右鍵工作表標籤，檢視程式碼如下複製進去：Excel另存為 Xlsm 格式，啟用宏,附件是設好的

VBA可輕鬆實現。如下程式碼：--------程式碼開始--------Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range Set Rng = Target.Range("a1") Cells.Interior.ColorIndex = 0 "清除所有背景色 Rng.EntireColumn.Interior.ColorIndex = 40 "設定當前列顏色 Rng.EntireRow.Interior.ColorIndex = 36 "設定當前行顏色 End Sub--------程式碼結束-------- 說明：在你要實現此功能的工作表標籤右擊，在彈出的選單中選擇編輯程式碼，然後輸入上面程式碼儲存即可！ 備註：如沒有出現效果，則可能是禁用了宏的關係。所以要在安全選項中啟用宏選項。