在1.xls中的sheet1表中,选择好第1行后,然后新建一个2.xls,将刚才选中的数据粘贴到2.xls中。怎么实现?
VBA充分利用数组,先将A工作表的数据读入数组中,再将数组的值粘贴回B工作表。
具体作法如下示例:
xx = A.Sheets(1).Range("A1:Z100").value '这里加上个.value
A.Sheets(1).Range("A1:Z100")=xx
说明:
xx 中间传递数据的变量。
A 工作表A.XLS对象。可以用set a=workbooks.open("d:\a.xls")等方式获得这个对象
B 工作表B.XLS对象。
具体作法如下示例:
xx = A.Sheets(1).Range("A1:Z100").value '这里加上个.value
A.Sheets(1).Range("A1:Z100")=xx
说明:
xx 中间传递数据的变量。
A 工作表A.XLS对象。可以用set a=workbooks.open("d:\a.xls")等方式获得这个对象
B 工作表B.XLS对象。
温馨提示:答案为网友推荐,仅供参考
第1个回答 2014-05-25
以下代码将Sheet1第1行中的数据复制到Sheet2的第1行中。
Sub 跨表复制()Sheet1.Range("1:1").Copy Sheet2.[a1]
End Sub追问
不是在1个excel中的。。。。
第2个回答 推荐于2016-05-26
Sub ZHANTIE()
Dim WB
Set WB = Workbooks.Add
ThisWorkbook.Sheets(1).Rows(1).Copy WB.Sheets(1).Range("a1")
WB.SaveAs (ThisWorkbook.Path & "\2.xls")
WB.Close False
End Sub
加入你的宏是写在1.xls中sheets(1)工作表本回答被提问者采纳
Dim WB
Set WB = Workbooks.Add
ThisWorkbook.Sheets(1).Rows(1).Copy WB.Sheets(1).Range("a1")
WB.SaveAs (ThisWorkbook.Path & "\2.xls")
WB.Close False
End Sub
加入你的宏是写在1.xls中sheets(1)工作表本回答被提问者采纳