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对象。
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)工作表本回答被提问者采纳