vba - 将行增加 250 以复制和粘贴数据

Question

对于带有日期的脚本，我有 6000 个数据点（股票价格），我想每次在下一张表中复制 500 个数据点，并希望每次选择数据时将其增加 250 行，直到该行为空白。我创建了一个宏，但我无法获得所需的结果。索引源是包含 6000 个数据点的工作表，索引数据是我要粘贴数据的工作表。谢谢

Sub rollingresults()
    Dim x As Range
    Dim y As Integer

    y = 250

    Num_Counter = Worksheets("Indexsource").Range("B1").Value

    For i = 1 To Num_Counter

        Worksheets("IndexSource").Activate

        x = Range("A4:H503").Offset(y * (i - 1), 0).Select

        Selection.Copy

        Worksheets("index_data").Range("P3").Select

        Selection.PasteSpecial

        ActiveWorkbook.RefreshAll

        Worksheets("ALM").Range("J40:M40").Select

        Selection.Copy

        Worksheets("Hist_Output").Cells(2 + (i - 1), 2).Select

        Selection.PasteSpecial

    Next i

End Sub

标签： vbaexcel