数据通道与测点测点编号对应（指定列的复制黏贴）

 

Sub t()

Columns(1).Copy Columns(11)
Columns(5).Copy Columns(12)
Columns(2).Copy Columns(13)
Columns(4).Copy Columns(14)
Columns(3).Copy Columns(15)



End Sub

 

 

Sub del()

For i = 15 To 11 Step -1

Columns(i).Delete


Next


End Sub

 

 

Sub ts()


arr1 = Array(11, 12, 13, 14, 15)
arr2 = Array(1, 5, 2, 4, 3)

For i = 1 To 5


Columns(arr2(i - 1)).Copy Columns(arr1(i - 1))

'Sheet1.Columns(arr2(i - 1)).Copy Sheet2.Columns(arr1(i - 1))

Next

End Sub