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
用 For Each 遍历区域内所有单元格
此篇博客讲解了如何使用VBA的ForEach循环结构，通过Dim rng As Range和index变量，实现对Excel中'a1:d5'区域内的单元格逐个赋值，从0开始递增。这对于批量数据处理非常实用。
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
