用 For Each 遍历区域内所有单元格

Sub aaa()
    Dim rng As Range
    Dim index As Long
    
    index = 0
    
     For Each r In Range("a1:d5")
        r.Value = index
        index = index + 1
     Next
End Sub