2020年12月20日
循环
摘要： 1.For Each Sub TestHellow() Dim r As Range, i As Integer i = 1 For Each r In Range("A1:A100") r.Value = i i = i + 1 Next r MsgBox "完成！" End Sub 结果： 2. 阅读全文
posted @ 2020-12-20 22:15 蜗牛的礼物 阅读(75) 评论(0) 推荐(0) 编辑