当前位置：网站首页>Using VBA interval to extract one column from another in Excel

Using VBA interval to extract one column from another in Excel

2022-04-23 03:38:00 【Blue area soldier】

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