用VBA按次数要求重复填充A、B两列数据

gwjkkkkk

参与一下。。。

今铭昔

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2023.12.5
   
2.     Dim arr, brr
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     t = [d2]
   
5.     arr = Range("a2:b" & r)
   
6.     ReDim brr(1 To UBound(arr) * t, 1 To UBound(arr, 2))
   
7.     For x = 1 To t
   
8.         For i = 1 To UBound(arr)
   
9.             m = m + 1
   
10.             brr(m, 1) = arr(i, 1)
    
11.             brr(m, 2) = arr(i, 2)
    
12.         Next
    
13.     Next
    
14.     [i2].Resize(m, 2) = brr
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

ykcbf1100

楼主的问题还真是多啊，循环3次就行了。

洋务德雷

更加细化了一下，只要在B2单元格输入起始日期，就可以得出结果排序。
如果一定要VBA的话，就要做到这样才更加方便吧。建议看一下。

fgq5910

洋务德雷 发表于 2023-12-5 15:19
更加细化了一下，只要在B2单元格输入起始日期，就可以得出结果排序。
如果一定要VBA的话，就要做到这样才 ...

感谢你的帮助！
这也是一种方法，做事例时较方便
能否这样：
开始日期：1月1日
结束日期：1月7日
重复次数：5
这样可能更好些

fgq5910

洋务德雷 发表于 2023-12-5 15:19
更加细化了一下，只要在B2单元格输入起始日期，就可以得出结果排序。
如果一定要VBA的话，就要做到这样才 ...

感谢你的帮助！
这也是一种方法，做事例时较方便
能否这样：
开始日期：1月1日
结束日期：1月7日
重复次数：5
这样可能更好些

洋务德雷

fgq5910 发表于 2023-12-5 15:53
感谢你的帮助！
这也是一种方法，做事例时较方便
能否这样：

可以的。。。。。怎么样都可以

wanghan519

试一下新玩具