Excel VBA选择符合条件的新值到其它表格中

Excel菜鸟，实在搞不定，求高手解围。今有两个表格（示意图如下），需要达到的目的是如果在“产品登记表”中新增了分组为一组的产品，产品名称可以自动添加到“一组负责产品”表的对应列中，最终所有分组为一组的产品均在“一组负责产品”表中。我的产品名称是不重复的，这两个表单在不同的工作簿。求这么一段VBA，可以检查表1中分组为的产品名称是否在表2中都有，有则不动，无则在表尾增添。
更正：可以检查表1中分组为一组的产品名称是否在表2中都有

举报该问题

推荐答案 2013-12-14

给你做了个完整的例子你自己参考一下

追问

十分的感谢！

水平低看不懂呢。可不可以简化为一个组一个表啊？

还有运行时出现错误。。。

调试时是这出了错误。。



追答

已经按你的要求修改了,book2 的工作表你要事先建好名称为组名

完善了代码 ,当调整产品的归属组后,产品写入新的组后,会自动从原组中清除

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

当前网址：http://00.wendadaohang.com/zd/eT0IeZBTeTneenZTBZ.html

相似回答

如何用VBA判断符合条件的数据复制粘贴到相应工作表?答：可以使用VBA中的If语句和For Each循环来实现。首先，在VBA中定义符合条件的数据，可以使用类似下面的代码：Dim targetSheet As Worksheet Dim sourceSheet As Worksheet Dim lastRow As Long Dim i As Long Set sourceSheet = Worksheets("Sheet1") ' 指定源数据所在工作表 Set targetSheet = Worksheet...

如何将EXCEL中符合条件的数据利用公式复制到另一个工作表答：1、公式无法完成复制，在一定条件下可以实现引用，但源数据必须存在。2、可以编写一段VBA代码将EXCEL中符合条件的数据复制到另一个工作表：假设是要查找A列包含XXX的，查到后将该行复制到另一个表。sub test()Dim i&,r& r=cells(rows.count,1).end(xlup).row '定位A列最后一行 k=1 '...

如何用函数或宏将excel中符合条件的数据行拷贝到另外的工作表里?答：Sub test()Dim i As Long, j As Integer, n As Long Sheet2.[a:e].ClearContents With Sheet1 For i = 1 To .[a65536].End(xlUp).Row If .Cells(i, 1) <> "J21" And .Cells(i, 2) <> "k880" And .Cells(i, 1) = "Y32" And .Cells(i, 3) = "CAV" Then n = n...

如何用VBA去实现EXCEL的表中找到符合条件的单元格,然后再整行复制到...答：Row y = y + 1 .Range(x & ":" & x).Copy Destination:=Sheets(3).Range("A" & y)End If Next End With End If Application.ScreenUpdating = True End Sub 这个代码的功能是在表1的A列输入数值，自动查找表二中对应A列数值然后事先复制到表三。欢迎到Excel Home论坛学习、交流”。

大家正在搜

excel VBA 提示没有符合条件的卡或账号没有符合条件的凭证 Excel中vba干什么用的 Excel里使用VBA Excel之VBA简单宏编程 VBA做excel数据库结婚必须符合哪些条件 excel vba 高手