Excel 如何在其他工作表中查找字符串并将数据复制/粘贴到当前工作表

我正在尝试构造一个宏，以查找与我在“零件目录”表中的“测试”表中突出显示的零件名称相同的零件名称

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

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

下面的代码取自此链接并稍作修改：（）。以前的尝试包括我使用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

---

关于你的后续问题：

假设您首先选择了整个零件名称列表：

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

这将使用循环遍历选择中的每个零件（单元）