[已解决]看看这个代码怎么修改

zxc1152468

Sub jj()


Range("A4:A18") = "20130101"

Range("A19:A33") = "20130102"

Range("A34:A58") = "20130103"
Range("A59:A73") = "20130104"

Range("A74:A88") = "20130105"

'依次类推要写到20130131，看看这个代码怎么修改,谢谢
End Sub

最佳答案

月排行榜 / 总排行榜

suye1010

2013-2-15 12:29

1. Sub FillDate()
   
2. Dim i As Integer
   
3. For i = 0 To 30
   
4.     Range("A" & i * 15 + 4 & ":A" & i * 15 + 18) = Format(i + 1, "20130100")
   
5. Next i
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

suye1010

1. Sub FillDate()
   
2. Dim i As Integer
   
3. For i = 0 To 30
   
4.     Range("A" & i * 15 + 4 & ":A" & i * 15 + 18) = Format(i + 1, "20130100")
   
5. Next i
   
6. End Sub
   

复制代码