통합 문서 간 값 찾기 및 복사

Question

다른 통합 문서(100개 시트가 조금 넘는 통합 문서)에서 부품 번호를 찾고 해당 데이터를 작업 시트에 복사하는 작업을 자동화하려고 합니다.

고유하게 식별되는 부품 번호가 있는 데이터가 포함된 두 개의 Excel 시트가 있습니다. (이미지 2의 강조 표시된 셀) "C" 열 이미지 2에는 "F" 열 이미지 1에 해당하고 일치하는 부품 번호가 있습니다. 정보가 어느 시트에 있는지 알 수 없음)

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보다 더 쉽게 이 작업을 수행할 수 있는 방법이 있습니까?