Można to zrobić np. za pomocą VBA. Napisałem funkcję UDF, która tworzy listę (tablicę) nazw miejscowości odczytanych z zakresów wg podanego schematu. Wywołanie funkcji: [syntax=text]=List3D(schemat adresu)[/syntax] schemat adresu zawiera nazwę arkusza ze znakami zastępczymi w postaci akceptowanej przez operator Like w VBA, to znaczy w tym przypadku:...
Dobry wieczór, Formułę można uprościć zastępując sumy podobnych wyrażeń formułą tablicową. Formułę wprowadza się do jednej komórki klawiszami Ctrl+Shift+Enter, a później kopiuje w dół. Mam wątpliwość co do celowości liczenia VAT w przypadku biletów bezpłatnych. O ile się nie mylę zawsze w wyniku otrzymuje się zero, a te obliczenia to połowa formuły....
Należy połączyć funkcję UNIKATOWE z funkcją FILTRUJ: [syntax=text]=UNIKATOWE(FILTRUJ(C3:C10;H... Tylko to może być niejednoznaczne, bo ta sama osoba raz może być z "x" a innym razem nie. Ta formuła działa w ten sposób, że najpierw pomija wiersze z "x", a potem szuka unikatów wśród pozostałych osób.
Ja preferuję rozwiązania najprostsze, za pomocą zwykłych funkcji i narzędzi Excela. Część a). Skopiować tabele A i B jedna nad drugą, najpierw B, potem A. Zaznaczyć obie. Użyć narzędzia Usuń duplikaty. U góry pozostaną unikaty z B (które nie są potrzebne), pod spodem będą unikaty z A (bo jeśli były w B, to pozostały w górnej części). Tę część można...
funkcja tablicowa Czyli po wpisaniu powyższej funkcji z komórki wychodzimy (zatwierdzamy) Ctrl+Shift+Enter w komórce pojawią się nawiasy klamrowe jak poniżej: Edit ----------------------------- Powyższe dotyczy gdyby to były liczby. Jeżeli to tekst (a tak najprawdopodobniej jest) to trzeba zamiast Częstość() użyć innej funkcji, bo ona tekstowe dane...
... potrzebuję wyciągnąć wszystkie unikaty, które znajdują się w kolumnie A i zapisać je do kolumny B. Na necie znalazłem formułę, która to wykonuje, niestety ma jeden minus, w przypadku gdy danych w kolumnie A będzie mniej niż zakres w tej formule, formuła wywala błąd. Wystarczy usunąć "g" z komórki A28 i wszystko znika. Jeśli ktoś ma jakiś patent...
Szkoda, że nie dałaś swojego załącznika, bo nie wiem jaki jest dokładnie układ danych. Zakładając, że dane w Arkuszach 1 i 2 są w kolumnie A, można uzyskać formułami efekt jak w Arkuszu3. Są tam dwa warianty rozwiązania. W kolumnie A wariant prostszy, który listuje różnice z zachowaniem ich położenia, w kolumnie C wyniki są zgrupowane bez pustych pól....
Zależy mi aby było to rozwiązane bez makr Jeśli szukasz sposobu uniemożliwienia wklejenia duplikatów :cry: - to można przygotować kolumny pomocnicze, które zweryfikują unikatowość poszczególnych danych w zestawie wklejanych wartości :D 1078166 Wstępnie wklejasz nowe dane w "zielone" pole, formuły weryfikują unikatowość i z "niebieskiego" pola wklejasz...
Nie napisałeś, w której wersji Excela ma to działać. W każdej wersji to jest standardowy przykład do zastosowania konsolidacji. Nagłówki kolumn trzeba sobie wpisać ręcznie albo skopiować. Potem umieszczamy kursor (komórkę aktywną) w miejscu, gdzie ma być początek wyniku (pod wierszem nagłówkowym w lewej kolumnie) i otwieramy dialog Dane/Konsoliduj....
i chciałbym go podzielić na mniejsze pliki według kolumny A Zacznij od znalezienia unikatowych wartości z kolumny A bo musisz mieć podstawę do sprawdzania [syntax=vb]Sub FindUniqInColumn(ByVal col As Byte, ByRef items As Collection) Dim i As Integer Dim cnt As Integer Excel.ActiveSheet.Columns(col).Copy Columns(250) Excel.ActiveSheet.Columns(250).RemoveDup...
Tak chyba najprościej będzie. W "Module2" masz wypełnianie listy. Na wzór wstawiłem pierwsze trzy (z ośmiu). Musisz sobie tylko dopasować szerokość kolumn w Initialize oraz dopisać pozostałe. Kolejność zostawiam Tobie. W moim przykładzie zaczyna się od "model", dalej "typ" i "chipset".
U ciebie są pięknie posortowane dane, a u mnie nie - i nie będzie tak bo dane są dopisywane na bieżąco W kolumnie 'G' (Lista unikatów 'Projekty') masz funkcję wyświetlającą posortowane unikaty - zastosuj ją do innych kolumn (projekty, osoby) i będziesz mieć porządek.
Witam W wersji Starter takiej opcji nie ma, zatem nie da się uruchomić zakładki Dane. Pozdrawiam Krystian Tokarski
Na Twojem przykladzie:
Zobacz teraz. Dodałem pętlę po arkuszach. [syntax=vbscript]For Each wk2 In Sheets(Array(Arkusz24.Name, Arkusz26.Name))[/syntax]Można również użyć numerów arkuszy: [syntax=vbscript]For Each wk2 In Sheets(Array(2, 3))[/syntax]albo wprost nazw jako tekstów, ale te są u Ciebie długie, więc niezbyt wygodne w użyciu.
Utwórz sobie arkusz o nazwie C gdzie pojawią się różnice. [syntax=vbscript]Sub elka() For x = 1 To Sheets("B").Cells(Rows.Count, 1).End(xlUp).Row If IsError(Application.Match(Sheets("B").Ce... 1), Sheets("A").Columns(1), 0)) Then y = y + 1 Sheets("C").Cells(y, 1) = Sheets("B").Cells(x, 1) End If Next End Sub[/syntax] ps. Musisz mieć nazwane te arkusze...
Nie wyjaśniłeś, co z tymi numerami działek w różnych miejscowościach. Wobec tego zakładam, że numer działki określa ją jednoznacznie i miejscowość nie jest istotna. Jeśli tak, to rodzaj tytułu prawnego można określić za pomocą funkcji WYSZUKAJ.PIONOWO w jej najbardziej typowym wariancie użycia: [syntax=text]=WYSZUKAJ.PIONOWO(C2;Dane_1...
Tak, teraz dopiero wiadomo, o co chodzi. Podaję dwie propozycje formuł. Pierwsza w "starym stylu" bez funkcji LAMBDA: [syntax=text]=UNIKATOWE(FILTRUJ($K$5:$K$... z wykorzystaniem funkcji pomocniczej LAMBDA: [syntax=text]=LET(dane;$K$5:$K$24;UNIKAT...
Załącz przykładowy plik. Funkcji działającej wprost i jeszcze na przefiltrowanych danych - nie ma. Funkcja WYST.NAJCZĘŚCIEJ działa tylko na liczbach. Trzeba więc unikatom z tych przefiltrowanych danych przypisać liczby i działać na tych liczbach. Istotne jest czy będzie jakaś zdecydowana dominanta w tych danych, czy nie okaże się, że 3 słowa występują...
[syntax=vb]Sub Porownaj() Dim s As String, y As Long, r As Range y = 1 ow = Cells(Rows.Count, "B").End(xlUp).Row Set r = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) For x = 1 To ow s = Cells(x, 2) If Application.CountIf(r, s) = 0 Then Cells(y, 3) = s y = y + 1 End If Next End Sub [/syntax]
Sprawdź czy dobrze - Bo nie wiem czy dobrze zrozumiałem. A poprawiałem kod "czysto" matematycznie bez większego rozumienia - minęło 3, roku Dane i przycisk dla "nowego" makra w Arkusz2 [syntax=vbnet]Sub Dostosuj2() Dim lista As Variant, ileWrs As Integer, idx As Integer Dim OstW As Long, tbl() As Variant, i As Long, j As Integer Dim Unikaty1 As New...
Najprościej: kolumna pomocnicza, MAX()+1 i formuła wyszukiwania.
=JEŻELI(LICZ.JEŻELI($B$1:$B$10;A1)>0;""; A1)
Poważnie? Istnieją już bezobsługowe bazy danych? Ja nie spotkałem. W każdej bazie muszą się pojawić błędy danych i trzeba je poprawiać. Co najmniej tyle. Do tego jakaś archiwizacja, RODO, itp. Rozumiem w Excellu błedy się nie pojawiają w takiej samej ilości, i nie podlega wymaganiom bezpieczeństwa? Że też profesjonaliści bazodanowcy nie wiedzą o takiej...
No w wersji 2019 to nie zadziała. Te funkcje są dostępne w aktualnym Excelu 365. Nie pisałeś, którą masz wersję. W starszym Excelu, to będzie trudniej, bo trzeba zrobić listę unikatów nazw firm, a potem można robić SUMĘ.JEŻELI. Schemat do unikatów firm jest taki: [syntax=text]=INDEKS(Tabela3[Kolumna2];P...
Proszę jeśli to możliwe o nadanie jakiegoś kierunku, od czego zacząć. Po mojemu: 1. Lista unikatów wg kolumny "B" - pod warunkiem, że nie ma dwóch różnych osób o tym samym nazwisku. Ew "D", jeśli pole jest obowiązkowe. Najprościej przez Collection w pętli 'For Each arkusz' z wyłączeniem "Szablon". 2. Bardzo podobną pętlą wypełniasz tabelkę w "Szablon"...
Bardzo to niejasno napisałeś i nie pokazałeś w pliku spodziewanych wyników. Czy chcesz zliczać wszystkie widoczne komórki z wybranym słowem, czy tylko unikaty? Czy to słowo ma stanowić całą zawartość komórki, czy może być fragmentem?
Jeżeli używasz Excela >=2007 to możesz użyć narzędzia "usuń duplikaty" [syntax=vb]Sub zz() Dim lLstRw& Dim iLstCol% Dim rRng As Range With Application .ScreenUpdating = False End With iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row Set rRng = Range(Cells(1, i), Cells(lLstRw, i))...
:arrow: trekkers A spróbowałeś przynajmniej zastosować poradę kolegi nunak 'a ? Jaką wersję masz excela? Jeżeli 2010 i powyżej masz funkcją "usuń duplikaty". Tylko nie zaznacz jednej kolumny a wszystkie te które mają być indywidualne. Jak nie wierzysz w wyniki zrób sobie test np z trzema kolumnami i danymi. wpisz przykładowe wartości, zaznacz całą tabelę...
Dzięki. Problem rozwiązany dzięki pomocy kolegi (pozostało tylko usunąć zliczanie pustych komórek) przy zastosowaniu takiego oto kodu: Sub copyUniqueWordsToNewSheet() Dim outputColumn As Range, cellsInCurrentColumn As Range Dim numberOfColumnsInCurrentSheet As Integer, currentColumn As Integer Set outputColumn = ThisWorkbook.Sheets("zestawienie").Colum...
ylo zaznaczone tylko 6 bo tyle jest par Prawdopodobnie chodzi o coś takiego: [syntax=vb]Sub FindUniq() Dim a, b As Byte Dim r As Range Dim re As Range Dim maxIndexA, maxIndexB, aa, bb, bc As Integer a = 2 'kolumna do zakolorowania b = 40 'kolumna śmieciowa Excel.ActiveSheet.Columns(a).Copy Columns(b) Excel.ActiveSheet.Columns(b).RemoveDupli... 1...
Pierwsze to nie wiem, czy temat jest odpowiedni do problemu. Potrzebowałbym pomocy przy zrobieniu pewnej rzeczy. Opiszę to na przykładzie koszyka z owocami. Mam dane w paru kolumnach. Kol. A nieistotna, kolumna B opisuje owoce (jabłko, cytryna, kiwi itp.), w kol. C jest unikatowy numer (dla każdego owocu, np. j1, j2, jx, ct1 ...), a kolejna (D) podaje...
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
W dość nieskomplikowany sposób można osiągnąć taki wynik: http://obrazki.elektroda.pl/6726167700_1... Trzy etapowe makro -wyszukiwanie unikatów w kolumnie B i zapisanie ich jako nagłówki kolumn w arkuszu wynikowym -wyszukiwanie unikatów w kolumnie A i zapisanie w kolumnie A -przypisanie Nr seryjnych do kontrahenta wg typu
Zakładając, że dane będą uporządkowane jak w załączonym przykładowym pliku można zrobić tak. W wybranej kolumnie np. F tworzymy listę unikatów (może być funkcja UNIKATOWE, a jeśli masz starszego Excela to za pomocą narzędzia Usuń duplikaty). W kolumnie obok formuła: [syntax=text]=SUMA.ILOCZYNÓW($D$3:$D$127...
Ponoć jeden obraz znaczy więcej niż tysiąc słów. http://obrazki.elektroda.pl/2393225800_1... Po prawej masz to co było w podpowiedzi kol. marcinj12 .
No to trzeba było od razu... Najprościej (znooowuuu) zbić string z dwóch (lub więcej - aż do uzyskania unikatów) kolumn. W przykładzie (dostosuj do swoich danych) D, wykrzyknik i C zapisywane w kolumnie K.[syntax=vb]Sub SortE() Dim wrsOst As Long Dim rw As Long Dim lista() As Variant Dim poz As Integer Dim i As Long, j As Long Dim ile As Integer Dim...
...arkusz z bazą pracowników i firm, którzy należą do tej samej grupy... Zły dobór wyznaczników grup - zapisy typu " 001 " sformatowane na tekst, nieszczególnie się nadają do tworzenia ' ID ' list. Wiele funkcji i ich kombinacji, używanych np: do tworzenia list dynamicznych i sortowanych unikatów, polegnie w zetknięciu z nimi ... taka właściwość excel'a,...
Dziekuje ale dopiero sie ucze Warto w takim razie poszperać w narzędziach Excela. Zwykle w takich przypadkach wystarczą: sortowanie, filtr zaawansowany z zaznaczonymi opcjami "kopiuj w nowe miejsce" oraz "tylko unikaty". Jeśli już musi być w VBA, to nagraj w/w rejestratorem...
Jeśli dane w "Kolumna5" są unikatowe, to można przez "zwykłe" kopiowanie: [syntax=vbscript]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim wSrc As Long, wDst As Long If ListBox1.ListCount = 0 Then Exit Sub wSrc = Sheets("ARK_1").Columns(5).Find(what:=Li... lookat:=xlWhole).Row wDst = Sheets("ARK_2").Range("A" &...
Posiadam taki kod ... tworzy mi się nowy skoroszyt ... To i tak nieźle, że kod działa ... ale chyba tylko dlatego, że nie osiągnął, jak do tej pory, wartości maksymalnych: kodu nie da się czytać w tej formie To fakt ... forma wizualna przypomina raczej histogram postawiony na prawym boku - powinno być raczej coś takiego: (a i tak pewnie będą zastrzeżenia,...
Witam pisze w odniesieniu do tematu [url=http://www.elektroda.pl/rtvforum/to... kolumn excel Otóż wykorzystałem ostatnią formułę do Wykluczenia Danych z kolumny 1 których nie ma w kolumnie 2. Chodzi o To by wykazał mi wszystkie komórki w A których nie ma w kolumnie B Jeśli w kom A jest liczba (12) a gdzieś w kolumnie B cyfra...
Skoro nie podejmujesz się analizy to skąd wiesz że nie liczy unikatowych wystąpień? Ja ją przetestowałem i liczy tak jak trzeba, z tym że liczy też osoby które mają wypełnioną tylko jedną komórkę tj. imię lub nazwisko. A chciałbym żeby excel pomijał taką osobę. Niestety ja z kolei nie za bardzo kumam funkcji bd.ile.rekordów.a. Ale biorąc pod uwagę twoją...
Jasne, nie mniej jednak taka sama sytuacja może wydarzyć się w przypadku rozwiązania z przyciskiem. Ja bym to połączył ze sprawdzeniem czy taki wpis nie istnieje już w zestawieniu(np zrobienie unikatowego rekordu z Pozycja&grupa&Data.). Jeśli istnieje można wyświetlić monit o potencjalnym dublowaniu. Edytowałem. Nie cytuj w całości postu poprzedzającego....
Nie podałeś wersji Excela, więc nie wiem, czy możesz używać wszystkich funkcji. Ale zakładając, że masz dostęp do funkcji UNIKATOWE, możesz zastosować taką regułę FW: [syntax=text]=CZY.PARZYSTE(ILE.NIEPUSTYC... zakres pomaluj sobie najpierw ręcznie na żółto, a później formatowaniem warunkowym zrobisz zielone pasy. Adresy...
Po mojemu dobrze liczy. Jeżeli policzysz "12" =LICZ.JEŻELI(G:G;K4) wyjdzie ich 11szt, a tak naprawdę wszystko dotyczy jednego, MODEL_17 Musiałbyś zrobić sobie najpierw listę unikatowych z kolumny E dodano po chwili W załączniku z 3-ma kolumnami pomocniczymi. W związku z tym, że niektóre mogą mieć ten sam wynik i będzie bieda z wyszukiwaniem, dodałem...
Przetestuj poniższe makro mając otwarty arkusz z tabelą wejściową [syntax=vb]Sub Sum_By_Account() Dim shSrc As Worksheet 'arkusz źródłowy Dim shDest As Worksheet 'arkusz docelowy Dim lOstRw As Long 'ostatnia zajęta komórka tabeli źródłowej Dim lOstRw2 As Long 'ostatnia zajęta komórka tabeli z wyfiltrowanymi unikatami numerów kont With Application .ScreenUpdating...
Cześć, Potrzebuję makra na wysyłanie maili do różnych użytkowników z różnymi załącznikami. Pomysł na to to : •Pierwsza kolumna (adres mailowy) •Druga kolumna (ścieżka z której excel ma dodać plik) I ważne np. w komórce A1 będzie właściwy adresat do pliku B1 i tak dalej A2/B2, A3/B3 Treść jest uniwersalna dla wszystkich, jedyne unikaty to...
Hmm, zastanawiam się nad celem tego działania. Jeśli trzeba z obu kolumn wyciągnąć wszystkie unikatowe PESEL'e + dane "towarzyszące", to nie prościej "przelecieć" kolejno obie kolumny z wpisaniem do kolekcji i sprawdzeniem błędu? Jeśli err=0 zapisujemy do tabelki wynikowej (unikat), w przeciwnym wypadku nie. Czy koniecznie potrzebny jest wynik porównania...
Witam, posiadam 1 listę z kilkunastoma tysiącami pewnych wartości. 1 Kolumna to unikatowy kod, a druga kolumna to wartości, które również występują x razy. Np. 125, 215, 125, 126, 127, 127 itd. Ale każda wartość ma unikatowy kod. Posiadam również druga listę która chce uzupełnić. Zalezy mi na tym by z tej dużej listy wyszukać konkretne wartości i uzyskać...
unikat tonsil kopiowanie excel excel kopiować excel excel
technics słabo świeci wyświetlacz drzenie obrazu monitora działanie czujnika wilgotności
w810i simlock yaris rezystor dmuchawy
Junkers – gaśnie płomień po kilku sekundach, nie uruchamia się główny palnik, elektroda jonizacyjna, termopara Brak sygnału DVB-T2 na Mokotowie - Antena SWA Ceramic High Power
