Excel中使用VBA间隔抽取某列到另一列

Sub d()

    Dim i As Long
    Dim r As Long
    i = 2
    r = 2
    Do While r <= Sheet2.Rows.Count
        
        'Range("K1").EntireColumn.Cells(i, 1).Value = Range("F2").EntireColumn.Cells(r, 1).Value
        Range("L1").EntireColumn.Cells(i, 1).Value = r - 1
        Range("M1").EntireColumn.Cells(i, 1).Value = Range("H2").EntireColumn.Cells(r, 1).Value
        i = i + 1
        r = r + 25
    Loop
End Sub