[已解决]自动添加部分内容

18839208898

哪位高手能帮忙看下添加VbA代码，一点运行，会自动在A列时间列写入三行下一天的日期，B列写入三行同样的科目代码么？在线求助，先谢谢了

最佳答案

月排行榜 / 总排行榜

风林火山

2022-11-11 13:45

Sub 三天三行()
    Dim ir As Integer, d As Date
    ir = Cells(Rows.Count, 1).End(3).Row + 1
    For k = ir To ir + 9 Step 3
        d = Cells(Rows.Count, 1).End(3)
        Cells(k, 1) = d + 1: Cells(k, 2) = "600102"
        Cells(k + 1, 1) = d + 1: Cells(k + 1, 2) = "600106"
        Cells(k + 2, 1) = d + 1: Cells(k + 2, 2) = "600101"
    Next k
End Sub

跳转到最佳答案楼层

风林火山

Sub 三天三行()
    Dim ir As Integer, d As Date
    ir = Cells(Rows.Count, 1).End(3).Row + 1
    For k = ir To ir + 9 Step 3
        d = Cells(Rows.Count, 1).End(3)
        Cells(k, 1) = d + 1: Cells(k, 2) = "600102"
        Cells(k + 1, 1) = d + 1: Cells(k + 1, 2) = "600106"
        Cells(k + 2, 1) = d + 1: Cells(k + 2, 2) = "600101"
    Next k
End Sub

zjdh

你不发一个附件？

18839208898

风林火山 发表于 2022-11-11 13:45
Sub 三天三行()
    Dim ir As Integer, d As Date
    ir = Cells(Rows.Count, 1).End(3).Row + 1

非常感谢，昨天忙的没顾上看帖，感谢高手们的帮忙

18839208898

zjdh 发表于 2022-11-11 14:44
你不发一个附件？

不好意思，  疏忽了忘了发附件了。