Sub d()
Cells.Interior.Pattern = xlNone
Selection.EntireRow.Interior.Color = RGB(250, 230, 200)
Selection.EntireColumn.Interior.Color = RGB(250, 230, 200)
End Sub
图例:
Sub d()
Cells.Interior.Pattern = xlNone
Selection.EntireRow.Interior.Color = RGB(250, 230, 200)
Selection.EntireColumn.Interior.Color = RGB(250, 230, 200)
End Sub
图例: