Con il layout che hai descritto questa macro dovrebbe essere sufficiente:
- Codice: Seleziona tutto
Sub retrieve()
Dim WB2 As String, WB2SH As String, I As Long, J As Long
'
WB2 = "MULTI_B40324_copia.xlsm" ' << Il nome del "secondo file" da cui prelevare
WB2SH = "Foglio1ZZ" ' << Il nome del foglio da cui prelevare
'
With Workbooks(WB2).Sheets(WB2SH)
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For J = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If Cells(I, 1) = .Cells(J, 1) Then
Cells(I, 2).Resize(1, 3).Value = .Cells(J, 2).Resize(1, 3).Value
Exit For
End If
Next J
Next I
End With
End Sub
Metti la macro nel file su cui vuoi copiare i dati, in un modulo standard (es Modulo1); personalizza le istruzioni marcate <<.
Poi torna su Excel, apri il File da cui prelevare, compila la lista di colonna A del foglio su cui vuoi importare e, con quel foglio attivo, lancia la Sub Retrieve.
Fai sapere, ciao.