Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 73327 Skopiuj do schowka 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 9 raz(y) 479.5 KB

ID posta: 420318 Skopiuj do schowka
 
 
beret
ExcelGaduła 500+


Wersja: Win Office 2010
Pomógł: 22 razy
Posty: 995
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 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
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

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.wip.pl

Archiwum

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