在Book1.xls中写如下代码:Sub Test()Dim i As IntegerWorkbooks.Open "D:\book2.xls", False, TrueFor i = 1 To Range("A65000").End(xlUp).RowIf Cells(i, 1) = ThisWorkbook.Sheets(1).Range("A1") ThenThisWorkbook.Sheets(1).Range("B1") = Cells(i, 2)ThisWorkbook.Sheets(1).Range("C1") = Cells(i, 3)End IfNext iWorkbooks("Book2.xls").Close 0End Sub运行它就可以了。
追问亲,你的代码中是两个工作薄,而我只有一个工作薄,里面有两个表哦