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

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

举报该问题

推荐答案 2017-07-24

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

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/zd/FIFIRQRILcFILcGcIcL.html

相似回答

如何运用VBA将指定路径下的某一文件复制到另一指定路径下答：1、我们需要批量提取新建文件夹里的文件完整路径，打开批量提取文件名的excel文件。2、单击视图按钮中的查看宏按钮。3、在弹出的对话框中找到对应操作的宏命令，批量获取文件名，并单击执行。4、接着会弹出文件选择对话框，我们需要找到对应文件，并单击确定。5、确定后，即可看到文件的路径已经找到。6、接...

vba将一个excel的数据复制到另一个excel中vba把一个表格内容复制到另外...答：Public Sub Copy()Range(\"A1:C10\").Select '复制的区域,自行修改 Selection.Copy '复制 Workbooks(2).Activate'激活第二个BOOK Range(\"A1\").Select'区域,自行修改 ActiveSheet.Paste'粘贴 End Sub

请教如何利用VBA实现将一个工作表复制到另一个工作簿中答：在【移动或复制工作表】对话框中，选择【工作簿】为【企划】，选择【位置】为【移动到最后】，勾选【建立副本】选项，然后点击【确定】按钮，如图所示。最后，打开企划Excel文档，您将看到市场Excel文档中的【市场部1月】工作表已被复制过来，如图所示。通过上述步骤，您可以轻松地将一个工作表从一个工...

怎么用vba将一个工作薄中指定的内容复制到多个不同名字的工作簿中答：1. 使用CreateObject("scripting.FileSystemObject").GetFolder(mypath).Files获取文件夹内的所有文件。2. 使用Workbooks.Open(myfile)打开文件。3. 将当前工作薄的指定范围的内容复制到打开的工作薄的相同范围。4. 保存并关闭打开的工作薄。需要注意的是，这里的“表名”和“范围”需要根据实际情况进行...

excel中如何将用vba把表一的信息录入表二答：1、可以先利用宏录制来自动生成代码，然后再进行修改。操作方法如下：第一步，打开一个excel应用，新建一个白空表格，并录入数据。2、第二步，点击excel应用程序窗口状态栏中左侧的“宏录制”按钮。3、第三步，然后在表1中，选中左上角第一个有数据的单元格。4、第四步，接着按下CTRL+SHIFT键，再...

大家正在搜

Excel中如何选定全部内容 Excel如何选定整列 Excel选定一行 Excel表无法选定区域 excel VBA 提示 Excel选定 Excel怎么选定区域 Excel选定求和 Excel选定行排序