数据进行转置时出现问题？

一线通

表2数据是 A2 B2 C2 D2 E2 F2 1 2 3 4 5 6 把表1的数据拷入表1的A列 A1 1 A2 2 A3 3 A4 4 A5 5 A6 6 我写的VBA语句： Application.ScreenUpdating = False Sheets("表1").Visible = True Sheets("表2").Visible = True Sheets("表2").Select Range("A2:F2").Select Selection.Copy Sheets("表1").Select Selection.PasteSpecial Paste:=xlAllExceptBorders, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=True 问题是用Microsoft Excel 2003是可以，用Microsoft Excel 2000运行以上语句表1的A列是空白的。各位高手帮我看看是什么问题？

Long_III

加一句哦

Sub hjs()
Application.ScreenUpdating = False
Sheets("表1").Visible = True
Sheets("表2").Visible = True
Sheets("表2").Select
Range("A2:F2").Select
Selection.Copy
Sheets("表1").Select
Range("a1").Select '就是这里
Selection.PasteSpecial Paste:=xlAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
End Sub

或

Sub hjs1()
Application.ScreenUpdating = False
Sheets("表2").Range("A2:F2").Copy
Sheets("表1").Range("a1").PasteSpecial Paste:=xlAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
End Sub

一线通

还是表1的A列是空白的

Long_III

2000没用过，也不知道具体怎么回事，还提供两种方法

Private Sub CommandButton1_Click()
Dim arr
Application.ScreenUpdating = False
arr = Sheets("表2").Range("A2:F2")
Sheets("表1").Range("a1:a6") = Application.WorksheetFunction.Transpose(arr)
End Sub

第二种，循环，如果这个都不行的话，我也没办法了哦

Sub hjs()
Dim i%

For i = 1 To 6
Sheets("表1").Cells(i, 1).Value = Sheets("表2").Cells(2, i).Value
Next
End Sub

taller

Sheets("表1").Range("a1:a6").Value = Application.WorksheetFunction.Transpose(Sheets("表2").Range("A2:F2").Value)

sunson2000

=offset($A$1,0,ROW(A1),1,1)