全民一起VBA提高篇 第16回

第十六回 多区域合纵连横身形变幻,单元格定位精准边界分明

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