Question

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

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

我收到错误消息“对象不支持此属性或方法。”

从以下链接中获取以下代码并略微修改：（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

您的后续问题：

假设您首先选择了所有部件名称列表：

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

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

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

1 个答案: