如何在另一个工作表中查找string并将数据复制/粘贴到当前工作表

我试图构build一个macros来find相同的部分名称，因为我已经在我的“零件目录”工作表的“testing”表中突出显示。

从这里，我想从“零件目录”表单复制零件制造的date（零件名称右侧的一列），并将其粘贴到零件右侧的单元格中名称在“testing”表中。

我得到一个错误，说“对象不支持这个属性或方法”。

下面的代码是从这个链接采取和稍作修改：（ http://www.ozgrid.com/forum/showthread.php?t=158840&p=578982#post578982 ）。 以前的尝试包括使用for循环，但大多数人似乎都认为.find函数对于这样的事情是最好的。

任何帮助，将不胜感激！ 谢谢！

Sub Get_Date() Dim Partname As String Dim sh As Worksheet Dim ws As Worksheet Set sh = Sheets("Tests") Set ws = Sheets("Part Catalog") Partname = ActiveCell.Value ws.Cells.Find(Partname).Offset(0, 1).Copy sh.Cells.Find(Partname).Offset(0, 1).Paste End Sub 

Answer 1

对于你的问题：

假定您首先select了部分名称的完整列表：

 Dim sh As Worksheet Dim ws As Worksheet Dim c, rng As Range Set sh = Sheets("Tests") Set ws = Sheets("Part Catalog") Set rng = Selection For Each c In rng ws.Cells.Find(c.Value).Offset(0, 1).Copy Destination:=c.Offset(0, 1) Next c 

这使用循环遍历select中的每个部分（单元格）。