如何更改所选范围内所有行的样式？

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函数。