Как изменить стиль всех строк в выбранном диапазоне?

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 только вернет верхнюю левую ячейку в пределах выбора. См. this. Кроме того, спасибо PatrickK за предложение о проверке имени типа, я смущен, чтобы сказать, что до сих пор не знал о функции TypeName.