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