如何在另一個工作表中查找字符串並將數據複製/粘貼到當前工作表

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 

它使用了一個循環來通過每個部分（小區）的選擇。