4.vba实战三【Resize属性】

Resize属性: 调整制定区域的大小，返回range对象，该对象表示重新定义的区域
编写格式：单元格.resize(新区域行数，新区域列数) 从1开始

'Resize属性
Sub ResizeTest()
'Range("a1").Resize(4, 5).Select
'Range("a2", "b4").Resize(4, 5).Select
Dim ss As Range
For Each ss In Range("c2", Cells(Rows.Count, 3).End(xlUp)) '表示从单元格 C2 开始，到列 C 中最后一个非空单元格的范围。这通常用于选择列 C 中所有有数据的单元格。
    If ss.Value < 60 Then
'        算完之后< 60的，把这一行变为红色
        ss.Offset(0, -2).Resize(1, 3).Interior.ColorIndex = 3
    End If
Next ss
End Sub