还是数组的问题

SNQTBLIQ

怎么用动态数组把cells(2,3)至cells(2,5)之间的日期分别每隔两个单元格填写到range("c4",cells(4,i))中去
数组问题.rar (5.8 KB, 下载次数: 7)

2015-2-3 17:58 上传

点击文件名下载附件

ykqrs

1. Sub qq()
   
2. Dim d&, d1&, r%, t%, i%
   
3. d = Range("c2"): d1 = Range("e2")
   
4. For i = 1 To Int((Cells(4, Columns.Count).End(1).Column) / 3)
   
5. Cells(4, i * 3).Clear
   
6. Next
   
7. t = 0
   
8. For r = 1 To d1 - d + 1
   
9. Cells(4, r * 3) = Format(d + t, "yyyy-mm-dd")
   
10. t = t + 1
    
11. Next
    
12. End Sub

复制代码

feiren228

Sub aa()
    Dim ar()
    ts = DateDiff("d", Cells(2, 3).Value, Cells(2, 5).Value)
    ReDim ar(1 To ts + 1)
    ar(1) = Cells(2, 3).Value
    For i = 1 To ts
        ar(i + 1) = DateAdd("d", i, Cells(2, 3).Value)
    Next
    n = 3
    For i = 1 To UBound(ar)
        Cells(4, n) = ar(i)
        n = n + 3
    Next
End Sub

ykqrs

数组问题.zip (7.71 KB, 下载次数: 4)

2015-2-3 18:55 上传

点击文件名下载附件

SNQTBLIQ

feiren228 发表于 2015-2-3 18:54
Sub aa()
    Dim ar()
    ts = DateDiff("d", Cells(2, 3).Value, Cells(2, 5).Value)

老师您好，求助，请您帮忙解决http://club.excelhome.net/thread-1481551-1-1.html