怎样用VBA读取一个excel表格中的某一列，然后提取出来放到另一个sheet的一行里如何写代码求详细，谢谢

Answer 1

Sheets("sheet1").Range("a1:a30").Copy
Sheets("Sheet2").Select
[a5].Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

追问

能否告诉我
[a5].Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
是什么意思吗？谢谢

Answer 2

sub test()
sheets("sheet1").range("A:A").copy sheets("sheet2").range("B1")
end sub