用vba怎样取excel中的一列在将提取的数据放到另一个sheet的一行，求代码，要精确的，谢谢大家

'在sheet2的单元格A1输入sheet1的A1的值
sheets("sheet2").cells(1,1)=sheets("sheet1").cells(1,1)
或
sheets("sheet2").range("a1")=sheets("sheet1").range("a1")

Dim xSht1 As Worksheet
Dim xSht2 As Worksheet
Set xSht1 = Sheets("sheet1")
Set xSht2 = Sheets("sheet2")
For i = 1 To 45
xSht2.Cells(1, i) = xSht1.Cells(i + 3, 3)
'sheet1表中的C4-C48，放到sheet2的第一行。
Next i本回答被提问者和网友采纳

用我这个，

Sub aa()
Range("a1:a5").Copy
Sheet2.Range("a1").PasteSpecial xlPasteAll, , , True
Range("a1:a5").Clear '用来删除复制的区域，如果区域需要保留，就把这句删掉
End Sub