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

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

2024-11-05 16:39:08

推荐回答（3个）

回答（1）：

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

回答（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

回答（3）：

用我这个，

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