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: 8993 Skopiuj do schowka Usuń wiersz gdy jest w nim dane słowo
Autor Wiadomość
mir123bych
[Usunięty]

Wysłany: 17-09-2008, 10:22   Usuń wiersz gdy jest w nim dane słowo

Mam excela z 20 000 wierszy, z którego muszę usunąć niepotrzebne wiersze.

Działanie makro:

Jeżeli w kolumnie A znajdziesz komórkę z słowem XXX usuń cały wiersz.

Stawiam 2 wirtualne piwa za pomoc :D 8-) :beer
ID posta: 46323 Skopiuj do schowka
 
 
Tajan


Pomógł: 2048 razy
Posty: 4438
Wysłany: 17-09-2008, 10:52   

Bardzo podobne makro masz w wątku:
http://www.excelforum.pl/viewtopic.php?t=8980
ID posta: 46332 Skopiuj do schowka
 
 
causative
EXCELent Man



Pomógł: 24 razy
Posty: 131
Wysłany: 17-09-2008, 21:15   Info

Miałem identyczny problem:

usuwanie wierszy

Pozdrawiam
_________________
Proste jest piękne, ale...
ID posta: 46410 Skopiuj do schowka
 
 
urchin 
Excel Expert



Pomógł: 159 razy
Posty: 451
Wysłany: 17-09-2008, 21:40   

a ja takie coś zaproponuję :)
usuwa z kolumny A jeśli ma być z B to zmień Cells(i, 1) na Cells(i, 2) itd


Kod:
Sub usuwanie_wierszy()
Dim i As Integer
i = 1
Dim z
Dim ans
z = InputBox("Z jaką zawartością usunąć?", "USUWANIE WIERSZY", " ")
Do While Cells(i, 1).Value <> ""
If Cells(i, 1).Value Like "*" & z & "*" Then
Rows(i).Select
'pyta cz usunąć
ans = MsgBox("Czy usunąć zaznaczony wiersz?", vbYesNo + vbQuestion, "USUWANIE")
If ans = 6 Then
'koniec pytania
Selection.Delete
If i <> 1 Then
i = i - 1
End If
'end if od pytania
End If
End If
Cells(i, 1).Select
i = i + 1
Loop
End Sub


jak nie chcesz komunikatu o potwierdzenie to:

Kod:
Sub usuwanie_wierszy()
Dim i As Integer
i = 1
Dim z
'Dim ans
z = InputBox("Z jaką zawartością usunąć?", "USUWANIE WIERSZY", " ")
Do While Cells(i, 1).Value <> ""
If Cells(i, 1).Value Like "*" & z & "*" Then
Rows(i).Select
'pyta cz usunąć
'ans = MsgBox("Czy usunąć zaznaczony wiersz?", vbYesNo + vbQuestion, "USUWANIE")
'If ans = 6 Then
'koniec pytania
Selection.Delete
If i <> 1 Then
i = i - 1
End If
'end if od pytania
'End If
End If
Cells(i, 1).Select
i = i + 1
Loop
End Sub


usun jesli zawiera.zip
Pobierz Plik ściągnięto 67 raz(y) 8 KB

ID posta: 46412 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.marketingNET.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.