Powinno działać.
W zasadzie mozna to zrobić na trzy sposoby, mowa jest o drukowaniu arkusza bez "niechcianych" wierszy. 1. uzyć narzędzia Aparat fotograficzny 2. zastosować Grupy i konspekty 3. ukrywać wiersze niechciane Pozdrówka
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
Ja również dziękuje.
Zrób taką formułę, która sprawdzi ci czy w pierwszej kolumnie jest liczba całkowita, jeśli tak to skopiuje dane z kolumn X,Y1 i Y2 do nowego arkusza lub nawet w następne puste kolumny. A dalej to już sobie poradzisz.
usuwanie wierszy z tabeli przy powtarzającej się wartości
Witam, ja mam nieco inny problem, mianowicie w obszarze arkusza o nazwie "LISTA" w ostatniej kolumnie "AO" wpisuję "X" jako pozycja zrealizowana. Chciałbym aby przy ponownym odświeżeniu pliku, bądź też otwarciu, wszystkie pozycje odznaczone w tej kolumnie "X" em były usunięte bez problemu dla funkcjonowania całej tabeli, która jest źródłem dla tabeli...
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
Fakt. I przed Rows też. To dlatego, że dodałem tego with'a już po napisaniu kodu i wtedy ktoś mnie zajął czymś innym, a potem musiałem już lecieć i tak zostało. Dlatego nie lubię pisać przykładów, zawsze coś/ktoś przeszkadza.
dopiero zapisywanie 3 minutowe uświadomiło mi problem Dlatego też może okazać się, że usuwanie działa, ale trwa bardzo długo i wydaje się, że nie usuwa.
:D :D :D Wiem że autor jest już "zadowolony" ale Jako laik zapytam ... ja też za kolegą zapytam: jak zmusić excela do usunięcia zbędnych wierszy i kolumn by ich nie było wcale [zaznaczam że nie chcę ich ukrywać]. A że już nie jestem takim laikiem jak kolega walek33 :D to wiem, że istnieje coś takiego jak "obszar roboczy" który można zapisać [.xlw] ale...
Dołóż jeszcze jedną pętlę [syntax=vb]Last = Cells(Rows.Count, "A").End(xlUp).Row With Arkusz2 last2 = .Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 1 Step -1 For j = 1 To last2 wyraz = .Cells(j, "A") If Cells(i, "F").Value Like wyraz Then Rows(i).EntireRow.Delete Exit For 'j End If Next j Next i End With [/syntax]
Mała przeróbka makr: 912681 Wiersze można dodawać ze ściśle określonego zakresu, który sam sobie ustalasz ("If ilewrs > 10 Then Exit Sub"). Usuwanie wierszy tylko pojedynczo, od ostatniego, aby zachować porządek.
Zamiast y = y + last_row2 wks.Rows(x).Cut wkb.Rows(y) wpisz wks.Rows(x).Cut wkb.Rows( last_row2) last_row2 = last_row2 + 1 Dodano po 53 usuwanie wierszy w drugim arkuszu zbędne
Podaj jakiś przykładowy plik dla lepszego zobrazowania problemu.
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...
Witam 1 Muszę usunąć zbędne wiersze (te na czerwono), zostawić tylko 1szy i ostatni. 2. zaznaczyć 1szy i ostatni(te na żółto) w przedziale czasowym na nocnej zmienie, gdzie zmiana rozciąga się na dwa dni kalendarzowe u każdego z kilkudziesięciu pracowników. Stałe są godziny od 15:00 do 3:00 rano Oraz 5:00 do 15:00 Oczywiście pracownicy są jeden pod...
Witam, potrzebował bym małej pomocy. Otóż mam tabele tak jak poniżej. W tabeli mam wiersze które się dublują. Niestety nie dublują się one w kolumnach tylko w wierszach co utrudnia sprawę. http://obrazki.elektroda.pl/8507180000_1... Czy ktoś by mógł podpowiedzieć jak usunąć zdublowane wpisy pozostawiając tylko oryginał czyszcząc tylko...
Witam Jestem dopiero na początku nauki programowania w języku VBA. Potrzebuję pomocy w temacie kasowanie pustych wierszy. mam napisane Do While Cells(wiersz, kolumna) = "" Rows(wiersz).Select Selection.Delete shift:=xlUp wiersz = wiersz - 1 Loop Jeżeli w kolumnie 1 jest pusty wiersz to usuń cały. tak miało działać.' jednak usuwa mi tylko 1 wiersz a...
Witam, w Arkusz1 mam bazę danych identyfikowaną po numerze (liczba) w kolumnie A (dane posortowane rosnąco po kolumnie A) np. A B 1 ble ble 2 coś tam 3 coś tam jeszcze w Arkusz2 mam kolejną bazę, gdzie znajdują się bardziej rozbudowane dane, ale opierają się na tym samym identyfikatorze co w Arkusz1, z tym że tutaj znajduje się on w kolumnie E Potrzebuję...
Hej, Jestem totalnym excelowym laikiem i pisze w zapewne większości prócz mnie banalnej sprawie. Temat klaruje się następująco: 1 plik to baza danych klientów która ma kilkadziesiąt tysięcy pozycji z kolumnami: Nazwa firmy/Kategoria/e-mail 2 plik to wylistowane kategorie na podstawie chciałbym usunąć wierze w pliku nr. 1 - po prostu zbędne pozycje Podsumowując:...
Cześć, Poniżej napisałem kod odnośnie kasowania całego wiersza w Excelu za pomocą przycisku. Nie wiem dlaczego, ale wartości wprowadzone po przez user form do różnych komórek w wierszu pozostają w tych komórkach, mimo że kod powinien wyczyścić wszystkie komórki. Czy ktoś może mi napisać jak zmodyfikować ten kod, aby na pewno wyczyścił cały wiersz? [syntax=vb]Private...
Być może ten temat już był wyjaśniany ale przeglądam forum i nie mogę, niestety, znaleźć odpowiedzi. Mam w arkuszu obszar ukryty. Mam wypełnione wiersze przed i za tym obszarem. Powiedzmy, że ukryty obszar ma 100 wierszy. Wpisuję tam dane w kilku kolumnach, a w jednej jest formuła, która coś mi wylicza. Na starcie widoczny jest tylko pierwszy wiersz...
Witam. Postaram opisać problem najprościej jak się da. Zaznaczam obszar który mnie interesuje, chcę zapisać czy też edytować zaznaczony obszar, natomiast resztę pustych kolumn i wierszy nie chcę widzieć, chcę je po prostu usunąć, schować. Jak to zrobić?? https://obrazki.elektroda.pl/6946861200_... https://obrazki.elektroda.pl/1539925100_...
Mam skoroszyt excela w którym w poszczególnych arkuszach (każdy miesiąc ma osobny arkusz) przechowywane są dane o pracownikach i jak pracowali w danym miesiącu. Czasem pracownik w ciągu miesiąca pracuje na kilku punktach pracy czyli zmienia lokalizacje. Przykład w arkuszu X pracownik o nazwisku i imieniu A7 129 pracował w lokalizacjach Bogdanka, Wieliczka...
Witam, Chcę stworzyć makro, które będzie pozostawiało co trzeci wiersz, a resztę usuwało. Czy mógłby mi ktoś pomóc?
Witaj 'Next cell ' przed 'If zmienna = False Then ' Dodano po 2 a jeszcze For Each cell In rng.rows(i).Cells
Rzeczywiście - trzeba od dołu - Mój błąd :) Tylko w tym powyższym kodzie szuka po kolumnie "A" a powinien po "P", czyli cells(x,16) :)
Moje skrypty są troche słabe, coś tam znalazłem w necie, troche poprzerabiałem i nawet działa, nie działa natomiast usuwanie wiersza jeżeli w kolumnie A mam coś takiego: "05-lut-2016 17:23 Start Template Page 3" z tego wszystkiego zawsze w zawartości stałe są Start, Template i Page, reszta oczywiście zmienia się według daty i numeru strony, sam wiersz...
Jak to zrobić aby usunąć duplikaty w wierszu Mam w jednym wierszu dane które się powtarzają i oczywiście wartości nie powtarzające się. Chcę aby zostały dane które się nie powtarzają i tylko jeden z duplikatów. Oczywiście wierszy jest parę tysięcy. Bardzo proszę o pomoc. Oto przykład: http://obrazki.elektroda.pl/9522076500_1...
Delete" na klawiaturze spowodowałoby usunięcie całego wiersza "3". To ma tylko usuwać pojedynczą komórkę? no chyba że o to chodzi (1 to kolumna A) [syntax=vbscript]Sub usun() With ActiveCell If .Column = 1 Then .EntireRow.Delete End With End Sub[/syntax]
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Witam, pierwszy raz piszę na forum i proszę o wyrozumiałość. Proszę o pomoc w dwóch problemach. 1. Chciałbym w excel ponumerować wiersze takim ciągiem 11112222333344445555 itd. ale liczba dla kolejnej komórki w kolumnie nie ma się powtarzać tylko 4 razy ale aż 32. Chciałbym tak wypełnić arkusz składający się z co najmniej 50tyś. wierszy. W jaki najprostszy...
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
Witam, Mam arkusz kalkulacyjny, który zawiera dane wyglądające w następujący sposób: Imię, naziwsko (xxxx xxxx / użytkownik) Telefon Mail Takich danych jest kilka tysięcy. Szukam sposobu, aby usunąć z arkusza duplikaty (ponieważ niektórzy użytkownicy się powtarzają) z zachowaniem unikalnego słowa. Większość użytkowników ma podane imię i nazwisko, więc...
Dołącz przykladowy plik
Zakładam, że Jan Kowalski to ta sama osoba, ale dane mogą pochodzić z różnych okresów (tutaj to nie ma znaczenia aż takiego). Mi chodzi o to, aby dane nie zostały utracone, tzn. w jednym wierszu Jan Kowalski ma podane stanowisko a w drugim już nie ma, zatem usuwając jeden wiersz tracę pewne informacje, a ta funkcja usuń duplikaty nie scali wierszy w...
Witaj [syntax=vb]Sub usuwanie_pustych_wierszy() For Each sh In ThisWorkbook.Sheets For i = sh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If sh.Cells(i, "B").Value = "" Then sh.Rows(i).Delete shift:=xlUp End If Next Next End Sub[/syntax]
Mam bardzo dużą ilość danych liczbowych (ponad 3mln wierszy). Czy jest sposób na to, żeby: 1. Excel wczytywał sobie tylko na przykład co dziesiąty, setny, czy n-ty wiersz? 2. W notatniku usunąć na przykład co drugi wiersz.
Witam, mam podobny problem. Potrzebuję usunąć ostatnie 4 z 7 kolumn w notatniku. Wierszy jest ok 12mln więc word, excel odpada bo są ograniczone do nieco ponad milion. Macie jakiś pomysł? Wydzieliłem jako nowy temat. Nie podpinaj się pod cudze wątki. Powoduje to bałagan na forum.
Zrobiłem już, wg tego co podpowiedziałeś za pierwszym razem. Teraz szukam zmyślnego patentu na usuwanie duplikatów pomiędzy kolumnami (te rekordy, które zostały wyjęte ze WSADu)
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...
W załączniku AKTUALNY (28-06-2009) arkusz, umożliwiający wstawianie i usuwanie dowolnej ilości wierszy nad nagłówkiem tabelki.
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
Witam! To mój pierwszy post w tej części forum. Natrafiłem na problem, znalazłem rozwiązanie, może komuś to się przyda. Zarejestrowałem proste makro, które w pierwszej części (tylko ta jest istotna) miało u dołu tabeli, ale przed wierszem podsumowania tworzyć dodatkowy wiersz będący kopią jednego z wierszy powyżej. Wydawało się, że sprawa jest prosta,...
Podaję przykładowy kod procedury sumującej wiersze zawierające takie same dane w kolumnie "A". Dane muszą być posortowane.[syntax=vb] Sub Sumuj_Wiersze() With ThisWorkbook.Worksheets("Arkusz1") ostatnia = WorksheetFunction.CountA(Columns(1)) + 1 For wiersz = ostatnia To 2 Step -1 If .Cells(wiersz, 1).Value = .Cells(wiersz - 1, 1).Value Then 'sumowanie...
Hmmm, Poradziłem sobie następująco, natomiast nie wychodzi mi zaszywanie dodatkowego warunku w tym kodzie. Obecnie makro przegląda arkusz źródłowy wyszukując jednego sprzedawcy (Agnieszka). Natomiast jak próbuję wcisnąć tam kolejną pętlę, aby wyszukał "Andrzej" i przeniósł wiersze do Arkusz3, "Basia" - do Arkusz4, "Iza" do Arkusz 5 itp, polecenie i...
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
Jeszcze jeden pomysł mi przyszedł z rana :). Pozwoli na usuwanie wierszy z arkusza1 nie niszcząc odwołań i spełni twoje oczekiwania. Wykorzystaj funkcję Adres() i adr.pośr() W funkcji adres() tworzysz adres za pomocą liczb: ADRES(nr_wiersza ;nr_kolumny ;typ_adresu;a1;tekst_arkusz) A za pomocą ADR.POŚR(adres_tekst;a1) odwołasz się bezpośrednio do danych...
Witam po przerwie, czas definitywnie zamknąć temat. Trochę czasu potrzebowałem na to aby zgłębić tajniki VBA i dokończyć mój pomysł na "tip top". Dzięki pomocy Marka i kol. PRL połknąłem bakcyla i się trochę podszkoliłem. Dopieściłem trochę kod wyjściowy aby tabelki końcowe ładnie wyglądały i aby dodać paski danych żeby zobrazować postęp wykonania....
Witaj Łatwiej zrobić nowy niż szukać błędów: Dodano po 3 Specjalnie w tym przykładzie może być łatwiej [syntax=vb] Sub Usun() Dim r&: r = 2 While Cells(r, 1) <> Empty If Cells(r, 1) = "X" Then Cells(r, 1).Delete Shift:=xlToLeft End If If Cells(r, 2) = "Linia" And Val(Left(Cells(r, 3), 3)) >= 1 Then r = r + 1 Else Rows(r).EntireRow.Delete...
To wersja makro, które wrzuciłem dokładnie to robi. Po przemieleniu Twoich przykładowych danych pozostało dokładnie 100 wierszy, z czego zostały tylko wiersze z "invoice" w opisie a także wiersze z kwotą 5.00 niezależnie od reszty opisu.
Wrzuć to makro, uzupełnimy...
Witaj, Pojedyncza prosta funkcja nie zadziała, ale można złożyć kilka funkcji, aby osiągnąć cel. i tak na przykład jeśli z alamakota*wp.pl chcesz zostawic samo *wp.pl - musisz poszukać pozycji interesującego Cię znaku (w tym przypadku *, funkcja SZUKAJ.TEKST), poznać długość całego tekstu (funkcja DŁ) oraz wyciąć sobie kawałek z prawej strony (funkcja...
Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...
To całkiem inne zagadnienie, wogóle nie związane z tematem i bardzo prościutkie [np. za pomocą wyszukaj.pionowo()] ale załóż własny temat. (bo jak między innymi podziękujesz za pomoc???)
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Co setny zostaje. [syntax=vbscript]Sub co_sto() i = 1 Do While Cells(i, 1) <> "" Rows(i).Resize(99).Delete i = i + 1 Loop End Sub[/syntax]
Popatrz, jak działa ta pętla np. dla pierwszego "i": jeżeli Twoja wartość będzie na końcu zakresu "y", to najpierw wiersz "i" usuniesz 119x, a dopiero na końcu przerwiesz pętlę... Bez sensu, prawda? Zamiast tego możesz wprowadzić następującą poprawkę: [syntax=vb]Private Sub CommandButton1_Click() Dim zakres As Variant, i As Integer, y As Variant, wier...
usuwanie wierszy excel excel usuwanie pustych wierszy usuwanie wierszy makro excel
odpowietrzyc wtryski niska wydajność klimatyzacji lodówka amica naprawa
Korozja styków w akumulatorze Xbox: przyczyny i zapobieganie Czujnik temperatury LM335 - zasada działania i zastosowanie
