原來是這樣呀我也學到了。

Sub zhuanzhi()
Dim arr(10)
Dim i As Long
arr(1) = Range("a" & 65535).End(xlUp).Value
arr(2) = Range("b" & 65535).End(xlUp).Value
arr(3) = Range("c" & 65535).End(xlUp).Value
For i = 1 To 5
Cells(1, i + 6) = arr(i)
Next
End Sub

根据实际情况修改即可!