Question

Excel VBA如何将一个表中的选定内容复制至另一个表的指定位置

如下图，画了一个按钮，希望通过点击按钮，可以将“产品目录表”中的选定内容（假如选定的就是绿色部分）自动插入到“订货记录表”对应的款式、颜色、尺码列里非空单元格的下一行。求高手指教代码怎么写





Answer 1

在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运行它就可以了。

追问

亲，你的代码中是两个工作薄，而我只有一个工作薄，里面有两个表哦