Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Usunięcie zakresu danych

karamba26 · Świeżak Posty: 4

Raportuj | Popraw błędy
#1 06 Wrz 2022 15:57
Mam plik excel-a w którym są dwa arkusze.

Musze usunąć całe wiersze z arkusza1 na podstawie arkusza2

W arkuszu 1 w kolumnie A są przykładowe dane.
W arkuszu 2 też w kolumnie A jest zakres danych który musi być usunięty z arkusza1 (wyszukać, zaznaczyć cały wiersz i usunąć go z arkusza1).

Jeśli w arkuszu 2 np. kolumna A26 jest 801262 to w arkuszu 1 w polu A1944 jest też 801262 i cały wiersz ma się zaznaczyć i dać później usunąć tak aby tych danych już nie było.

Czy można użyć jakiejś funkcji która zaznaczy wszystkie dane do usunięcia z arkusza1 kolumny A i te dane do usunięcia będą mieściły się w zakresie całej kolumny A z arkusza2.
Czyli mamy do usunięcia 181 wierszy z arkuszaA

Chyba że można to wykonać w inny sposób.

test.xls

Pobierz Plik ściągnięto 9 raz(y) 479.5 KB

beret · Wysłany: 06-09-2022, 15:39

Można to zrobić np. takim makrem:

Kod:

Sub usun()
Dim i&, k&, ost1&, ost2&
ost1 = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row

With Sheets("Arkusz2")
ost2 = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To ost2
For k = ost1 To 1 Step -1
If .Cells(i, 1).Value = Sheets("Arkusz1").Cells(k, 1).Value Then
Sheets("Arkusz1").Rows(k).Delete
End If
Next
Next
End With
End Sub