VBA复制数据并粘贴到指定单元格

Sub CopyValues()
    Dim i As Integer
    N = 0
    'A是指数据源的列，i是数据源第一个数据所在的行，Ai就是定位
    
    For i = 2 To 100
    
        'B1是参数可以更改成输入数据的第一个单元格，定位
        
        Range("B1").Offset(0, N).Value = Range("A" & i).Value

        'N+2，实现b1，d1，f1，跨单元格粘贴
        N = N + 2
    Next i
End Sub

另外，复制粘贴语法也可以写成如下：
        Sheets("Sheet2").Range("A" & i).Copy Sheets("Sheet2").Cells(1, N)
        '写成这样也行，Range("A" & i).Copy Cells(1, N)