ID tematu: 73327
 |
Usunięcie zakresu danych |
Autor |
Wiadomość |
karamba26
Świeżak

Posty: 4
|
Wysłany: 06-09-2022, 15:11 Usunięcie zakresu danych
|
|
|
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 12 raz(y) 479.5 KB |
|
|
 | ID posta:
420318
|
|
|
 |
|
|
|
beret
ExcelGaduła 500+

Wersja: Win Office 2010
Pomógł: 23 razy Posty: 1032
|
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
|
|
|
 | ID posta:
420320
|
|
|
 |
|
|
|
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach Nie możesz załączać plików na tym forum Możesz ściągać załączniki na tym forum
|
Dodaj temat do Ulubionych Wersja do druku
|
|
Strona używa plików cookies.
Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe
|