Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[VBA] Usuwanie wierszy gdy komórka zawiera wartość x

Mikolaj66 25 Sie 2017 22:50 1998 5
  • #1 25 Sie 2017 22:50
    Mikolaj66
    Poziom 1  

    Witam
    Potrzebuje pomocy przy napisaniu makra excel

    W kolumnie M mam 10 typów wartości liczbowych powtarzających się, pomieszanych.
    Chciał bym aby makro znalozło wiersze w kolumnie M zaierające wartości 1224, 1228 i 1232
    Po czym usunęło całe wiersze, czyli wszystkie dane we wszystkich kolumnach w tym wierszu który zawiera te liczby.
    Ale tak było nie było pustych wierszy, czyli po usunieciu dane przesuwają się w miejsca pustych wierszy.
    Dokument jest duzy bo ponad 700 000 wierszy, kolumny od A do R

    0 5
  • Pomocny post
    #2 26 Sie 2017 06:51
    JRV
    Specjalista - VBA, Excel

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    2
  • #3 12 Gru 2017 09:10
    ag851104
    Poziom 3  

    Witam
    Jestem poczatkujaca a badziej jest to moje raczkowanie z VBA. Mam podobne pytanie bo nie dziala mi kod. Mam tabelę w kolumnie A i B majaca 20 wierszy i chcialabym zeby usunac caly wiersz i zeby nie stworzylo sie miejsce puste jesli beda wystepowac nastepujace slowa w kolumnie A
    Na podstawie kodu ktory jest podany chcialam stworzyc podobny
    Prosilabym o pomoc

    Sub usuniecie()
    Application.ScreenUpdating = False
    ow = Cells(Rows.Count, "A").End(xlUp).Row
    For r = ow To 1 Step -1
    If Cells(r, "A") = Centala Or Cells(r, "A") = Kijów Or Cells(r, "A") = Lwów Or Cells(r, "A") = Niemcy Or Cells(r, "A") = RKS Kliszczak Or Cells(r, "A") = RKS Krupski Or Cells(r, "A") = SDS Błędowska Or Cells(r, "A") = Sopot Or Cells(r, "A") = Terespol Or Cells(r, "A") = Ukraina Spec Then Rows(r).Delete
    Next
    Application.ScreenUpdating = True
    End Sub

    0
  • #4 12 Gru 2017 10:12
    JRV
    Specjalista - VBA, Excel

    Najpierw preczytaj w podstawach co w VBA jest zmienna, konstanta, liczba lub ciag znakow

    0
  • #5 12 Gru 2017 11:57
    cbrman
    Poziom 27  

    Wartości tekstowe (string) ujmujemy w kodzie w cudzysłów.

    0
  • #6 13 Gru 2017 08:30
    ag851104
    Poziom 3  

    Czyli wystarczy ze dodam cudzyslow i bedzie dzialac.?
    Z gory dziekuje za pomoc:)
    Ania

    Dodano po 13 [godziny] 35 [minuty]:

    Takie cos?
    Sub usuniecie()
    Application.ScreenUpdating = False
    ow = Cells(Rows.Count, "A").End(xlUp).Row
    For r = ow To 1 Step -1
    If Cells(r, "A") = "Centala" Or Cells(r, "A") = "Kijów" Or Cells(r, "A") = "Lwów" Or Cells(r, "A") = "Niemcy" Or Cells(r, "A") = "RKS Kliszczak" Or Cells(r, "A") = "RKS Krupski" Or Cells(r, "A") = "SDS Błędowska" Or Cells(r, "A") = "Sopot" Or Cells(r, "A") = "Terespol" Or Cells(r, "A") = "Ukraina Spec"
    Then Rows(r).Delete
    Next
    Application.ScreenUpdating = True
    End Sub

    0