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
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.
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.
Powinno działać.
usuwanie wierszy z tabeli przy powtarzającej się wartości
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...
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.
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...
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:...
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
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...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel (at)ElektrodaBot
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, 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...
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...
moze to nie tu ale ... mam problem mam dokument excela, 7500 wierszy które się powtarzają nieregularnie... co zrobić aby mi wywalił powtarzające sie wiersze??? błagam o pomoc
Witam Sprawdziłem posty do początku roku 2007 i nie znalazłem odpowiedzi na to pytanie, a mianowicie. Posiadam Excel 2003 EN i nie mam pojęcia jak odwrócić komórki tzn... 1 2 3 4 5 6 7 8 9 A Chciałbym abym miał odwrotnie, chciałbym wywrócić je na lewą stronę. 9 8 7 6 5 4 3 2 1 Tyle, że jest więcej wierszy. Wierszy jest ok 12 a kolumn ok 1000 Będę wdzięczny...
Witam, mam następujący problem znalazłem takie oto makro które świetnie działa, ale oczywiście nie u mnie (ja go nie napisałem, jeśli chodzi o makra to jestem zielony) [syntax=vbscript] Sub Dodaj_Wiersz() Dim lOstRw& Dim sForm$ lOstRw = Cells(Rows.Count, 1).End(xlUp).Row Rows(lOstRw).Offset(1, 0).Insert (xlShiftDown) Rows(lOstRw).Copy Rows(lOstRw).Offset(1,...
Witam, mam ogromna prosbe czy mógłby ktoś mi pomóc/podpowiedzieć w zmodyfikowaniu makr. 1. W załączonym skoroszycie jest jeden arkusz główny <BAZA> i kilka arkuszy pomocniczych np <SM_S_M>, (ich liczba lub nazwy moga się zmieniać). Do każdego z "Arkusza pomocniczego" podpiete są makra które mają za zadanie skopiować zawartość zamknietych...
Witam Mam takie zadanie do zrobienia mianowicie Mam tabele |Przedmiot zamówienia|Wartość zamówienia netto w zł| Wartośc zam. netto w euro| Wszystko juz mam . wpisując w Wartość zam. w zł mnoże przez kurs euro i sa wyniki ale następną linijkę muszę przeciągać. chodzi mi o to zeby automatycznie była dodawana nasepna linijka. Jak to zrobić i czy wogole...
Witam forumowiczów, Potrzebuje pomocy w napisaniu programy w VBA. Mianowicie: w excel-u mam listę produktów(kolumna 'b') i ilość(kolumna 'c') Potrzebuje wydrukować tylko wiersze zawierające jakąś liczbę w kolumnie ilość oraz kolumnę SKLEP i DZIEŃ, DATA. Proszę o pomoc - jeżeli będą to komendy proszę podajcie jak ich używać http://img714.imageshack.us/img714/9899/...
No właśnie muszę zrobić tak, żeby nagłówek i stopka tabeli (czyli pierwszy i ostatni wiersz w arkuszu) przy przewijaniu były zawsze widoczne. Meczę się z tym już kilka godzin i nie potrafie nic takiego wymyślić. Za wszystkie sugestie bardzo dziękuję pozdro
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...
Podaj jakiś przykładowy plik dla lepszego zobrazowania problemu.
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...
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...
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]
Witam, poszukuję makra, które usunie wiersz jak znajdzie w nim w kolumnie P słowo "DELETE". Takich wierszy jest kilka. Z góry dzięki za pomoc. Wydzieliłem jako nowy temat. Nie podpinaj się pod cudze wątki (w dodatku archiwalne). RADU23
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...
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...
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...
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...
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...
W załączniku AKTUALNY (28-06-2009) arkusz, umożliwiający wstawianie i usuwanie dowolnej ilości wierszy nad nagłówkiem tabelki.
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)
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 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...
Witaj 'Next cell ' przed 'If zmienna = False Then ' Dodano po 2 a jeszcze For Each cell In rng.rows(i).Cells
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,...
: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...
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...
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...
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...
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.
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....
Tylko podmień ten 'usun'
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...
Dołącz przykladowy plik
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]
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]
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.
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....
Użyj funkcji ADR.POŚR np. [syntax=text]=ILE.NIEPUSTYCH(ADR.POŚR("C... Funkcja ADR.POŚR ma argument tekstowy, więc nie podlega on modyfikacji. Koniec zakresu może być adresem zwykłym, jeśli chcemy, by nadążał za dodawaniem/usuwaniem wierszy. Zasadą jest ilustracja problemu załącznikiem z układem danych!!!
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
excel usuwanie wierszy excel usuwanie pustych wierszy usuwanie wierszy makro excel
zawór filtrze paliwa makro tworzenie katalogu zasilacz liniowy regulowany
stacja zasilania sterownik salus 091flv2
Alfa Romeo 159 2.4 JTDm – kod błędu P1602, niskie napięcie ECU, brak ciśnienia Common Rail Dahua IPC: automatyczne wyłączanie DST i NTP – konflikt z NVR, firmware, konfiguracja czasu
