在工作簿之間尋找和複製值

Question

我正在嘗試自動執行在另一個工作簿（僅包含 100 多張工作表的工作簿）中查找零件號碼並將資料複製到工作表中的任務。

我有兩個包含資料的Excel 工作表，其中有一個唯一標識的零件號，（圖像2 中突出顯示的單元格）圖像2 的“C”列在圖像1 的“F”列中具有相應且匹配的零件號碼。

我需要循環遍歷 C 列，選擇每個部件號和應用程式。

我目前有：

Sub Findvalue()
'
' Findvalue Macro
'
' Keyboard Shortcut: Ctrl+o
'

b = 6 
c = 1
Set Start = "C" & b

While c < 250
    Range(Start).Select
    Selection.Copy
    Windows("SPARES.xlsm").Activate
    Cells.Find(What:="'Start'", After:=ActiveCell, LookIn:=xlFormulas,     LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    Windows("A696237-08_spare_parts U2D.xlsx").Activate
    Range(Start).Select
    ActiveSheet.Paste
    b = b + 1
End Sub

這是一個錄製的宏，帶有一些嘗試自動化的修復。

有沒有比 VBA 更簡單的方法來實現這一點？