如何更改所選範圍內所有行的樣式？

Question

我想創建一個宏，它將突出顯示所選單元格區域的所有行。例如。如果我選擇單元格A1和B3，我希望宏突出顯示第1行和第3行。目前，我有以下可以從單個單元格突出顯示一行的宏，但我不知道如何展開以突出顯示行所有選定的單元格：

Sub Macro1() 
    ActiveCell.EntireRow.Style = "Good" 
End Sub 

Answer 1

我建議將此作爲您的子。

Sub Macro1() 
    If TypeName(Selection) = "Range" Then 
      Selection.EntireRow.Style = "Good" 
    End If 
End Sub 

ActiveCell只返回Selection中的左上角的單元格。見this。另外，感謝PatrickK提供的關於檢查類型名稱的建議，我很尷尬地說我之前並不知道TypeName函數。