【020】切换横纵坐标（复制、黏贴）_#VBA

1. 要求

需要把横纵坐标调换一下，因为数量比较多，使用VBA宏编译一下

2. 代码

Sub ahhd()

    For i = 1 To 6
        Sheets("Sheet1").Select
        Range(Columns(2 * i - 1), Columns(2 * i - 1)).Select
        Selection.Copy
        Sheets("Sheet2").Select
        Cells(1, 2 * i).Select
        ActiveSheet.Paste
        Sheets("Sheet1").Select
        Range(Columns(2 * i), Columns(2 * i)).Select
        Selection.Copy
        Sheets("Sheet2").Select
        Cells(1, 2 * i - 1).Select
        ActiveSheet.Paste
    Next
    
End Sub