第十六回 多区域合纵连横身形变幻,单元格定位精准边界分明
1.简化range的i、j二层循环
PS:上回知识点—利用range.row、range.rows.count确定i、与j的范围,本回进行优化简单处理:
1. 上回方法
Sub read Cel1s()
Dim i As Long,j As Long,r As Range
Set r = Range("C4:F6")
'按照行列顺序读取每个单元格,并将其字体设置为绿色
For i= r.Row To r.Row + r.Rows.Count-1
For j= r.Column To r.Column + r.Columns.Count-1
Ce11s(i,j).Font.Color=vbGreen
Next j
Next i
end