Другое видение того же кода[vba]Код
Sub asd()
Const dRh# = 15.75
Dim rRow As Range, r As Range, r1 As Range
With ActiveSheet.UsedRange
.Interior.Color = xlNone
For Each rRow In .Rows
Select Case rRow.RowHeight
Case Is >= dRh: Call AddRange(r, rRow)
Case Is < dRh:: Call AddRange(r1, rRow)
End Select
Next
End With
If Not r Is Nothing Then r.Rows.Interior.Color = vbRed
If Not r1 Is Nothing Then r1.Rows.Interior.Color = vbGreen
Set r = Nothing: Set r1 = Nothing
End Sub
Sub AddRange(rRng As Range, rRow As Range)
If rRng Is Nothing Then
Set rRng = rRow
Else
Set rRng = Union(rRng, rRow)
End If
End Sub
[/vba]