QQ网名大全

根据,测试页的A2单元格中,输入代码后。搜索1页+2页,如果1页或2页中有相应的代码,则返回相应的商品名称

在测试表的底部标签上点鼠标右键,将下面代码粘贴进去,执行它就可以了。
Sub 提取数据()
s = 5
a = Range("a2")
For i = 5 To Sheets("1").Range("b65536").End(xlUp).Row
If Sheets("1").Cells(i, 2) = a Then Cells(s, 1) = Sheets("1").Cells(i, 6)
s = s + 1
Next
For i = 5 To Sheets("2").Range("b65536").End(xlUp).Row
If Sheets("2").Cells(i, 2) = a Then Cells(s, 1) = Sheets("2").Cells(i, 6)
s = s + 1
Next
End Sub
补充:
在测试表底部标签上点右键后,会弹出快捷菜单,里面有一个“查看代码”选项,选中后会出现VBA窗口,粘贴进去代码就行了。
佚名
2024-06-09 00:33:43
最佳回答
类似问题(10)