这个功能如何用VBA实现啊？脑壳疼....

iwangyi

楼主已明确表明为日期，在日期举例中出现了点，可以说是一个误操作；如遇其它数据，产能联系，非日期格式是不通用的，从这个角度来说，在日期中出现点的可行性行不通

ykqrs

1. Sub qq()
   
2. Dim x%, y%, n%, d As Date, d1 As Date, d2 As Date
   
3. [a5:b5].Resize(1000).ClearContents
   
4. d = Replace([a2].Value, ".", "-")
   
5. d1 = Replace([b2].Value, ".", ",")
   
6. [a5] = [a2].Value
   
7. n = 2
   
8. Do
   
9. n = n + 1: x = Int(n / 2) + 4: y = n Mod 2 + 1
   
10. d2 = DateSerial(Year(d), Month(d) + n - 2, 1)
    
11. Cells(x, y) = Format(d2, "yyyy,m")
    
12. Loop While d2 < d1
    
13. End Sub

复制代码

ykqrs

123.rar (14.84 KB, 下载次数: 4)

2018-8-18 11:10 上传

点击文件名下载附件

parcal

我也在学习中，求教导。

约定的童话

ykqrs 发表于 2018-8-18 11:10

666666666666666666

约定的童话

parcal 发表于 2018-8-18 11:42
我也在学习中，求教导。

12楼厉害，可以学习

约定的童话

iwangyi 发表于 2018-8-18 08:45
楼主已明确表明为日期，在日期举例中出现了点，可以说是一个误操作；如遇其它数据，产能联系，非日期格式是 ...

转化啊，要求是点，可以转化来

YZC51

学习啦！谢谢
Sub qq()
    Dim y%, n%, d As Date, d1 As Date, d2 As Date
    [a5:b5].Resize(1000).ClearContents
    d = Replace([a2].Value, ".", "-")
    d1 = Replace([b2].Value, ".", ",")
    [a5] = [a2].Value
    n = 2
    Do
        n = n + 1: y = n Mod 2 + 1
        d2 = DateSerial(Year(d), Month(d) + n - 2, 1)
        Cells(n / 2 + 3.9, y) = Format(d2, "yyyy,m")
    Loop While d2 < d1
End Sub