Dim parametr1, weryfikacja, parametr2 As String
For i = 0 To 20
Sheets("Arkusz4").Select
parametr1 = Cells(10 + i, 2).Value 'zmienna zaczytana z innego arkusza w petli
parametr2 = Cells(10 + i, 3).Value 'zmienna zaczytana z innego arkusza w petli
MsgBox parametr1 & " - " & parametr2
For a = 0 To 5
Sheets("Arkusz2").Select
If ((Cells(4 + a, 1).Value = parametr1) And (Cells(4 + a, 2).Value = paramert2)) Then
MsgBox "wartosc1: " & Cells(4 + a, 1).Value & vbCrLf & "parametr1: " & parametr1 & vbCrLf & "wartosc2: " & Cells(4 + a, 2).Value _
& vbCrLf & "parametr2: " & parametr2 & vbCrLf & "a: " & a & vbCrLf & "i: " & i
Sheets("Arkusz4").Cells(10 + i, 4).Value = Sheets("Arkusz2").Cells(4 + a, 2).Value
Sheets("Arkusz4").Select
MsgBox "wstawiona wartosc: " & Sheets("Arkusz4").Cells(10 + i, 4).Value
Else
'MsgBox "Brak pary"
End If
Next a
Next i
A wyjaśniając to bierzemy dwa parametry z jednego arkusza i sprawdzamy czy w arkuszu drugim jest taka para na dwóch kolumnach, jeśli tak to do pierwszego arkusza wstawiamy trzecia kolumnę z arkusza drugiego.