在工作簿之间查找和复制值

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 更简单的方法来实现这一点？