Zadaniem formuły jest pobranie kolejnego elementu wg pozycji wyliczonej w kolumnie C.
Uwaga: formuła zależy od położenia w arkuszu (funkcja WIERSZ() ). Gdyby położenie formuł było ‘niższe’ niż od pierwszego wiersza, trzeba odpowiednio zmodyfikować. Np formuły są od komórki D3 w dół - zamiast ‘gołego’ WIERSZ() trzeba użyć: WIERSZ() -2.
Sub eliminacja()
licz_D = 1
Range("D:D").Clear
For licz_A = 1 To 200
odczyt = Range("A" & licz_A)
For licz_B = 1 To 200
zobacz = Range("B" & licz_B)
If zobacz = odczyt Then Exit For
wpisuj = odczyt
Next
If zobacz <> odczyt Then
Range("D" & licz_D) = wpisuj
licz_D = licz_D + 1
End If
Next
End Sub
dodatkowo zbiory maga zawierać nie tylko liczby ale i ciągi tekstowe