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

Question

比如我要取c4-c48这一列，然后再将它们放到另一个sheet的一行去，求代码，快点。

Answer 1

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

Answer 2

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

Answer 3

用我这个，

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