行列处理VBA

nnsea

'-------------------------------------------------
'Range.Row 属性
'返回区域中第一个子区域的第一行的行号

'Range.Column 属性
'返回指定区域中第一块中的第一列的列号
'-------------------------------------------------

Sub test()
i = Range("a3:b9").Range("a5").Row
j = Range("a3:b9").Row
i = Range("b3:d9").Range("a5").Column
j = Range("b3:d9").Column
End Sub


Sub row应用()
For Each rw In Rows("1:13")
    If rw.Row Mod 2 = 0 Then
        rw.RowHeight = 5
    End If
Next rw
End Sub