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

【问题标题】：How do I change the style of all rows in the selected range?如何更改所选范围内所有行的样式？
【发布时间】：2014-01-30 05:11:29
【问题描述】：

我想创建一个宏来突出显示选定单元格区域的所有行。例如。如果我选择单元格 A1 和 B3，我希望宏突出显示第 1 行和第 3 行。目前我有以下宏可以突出显示单个单元格中的一行，但我不知道如何扩展它以突出显示行在所有选定的单元格中：

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

【问题讨论】：

【解决方案1】：

我会建议你把它作为你的子。

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

ActiveCell 只会返回选择中左上角的单元格。见this。另外，感谢 PatrickK 关于检查类型名的建议，我很尴尬地说我以前不知道 TypeName 函数。

【讨论】：