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...
Nie wiem, co znaczy "przestaje działać". Trzeba było załączyć swój plik. Przesyłam wersję ze zmienionym zakresem.
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....
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...
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.
Wow super to WYSZUKAJ.PIONOWO załatwia sprawę. Z tymi unikatami to już mniej ważne, ale dzięki za pomoc.
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...
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)
To, co w bazie jest naturalne, do Excela jest "przyszywane". Odkąd mnie kiedyś Excel oszukał podczas sortowania i filtrowania sporej "bazy", nie zlecam mu tak karkołomnych zadań. To nie ma sensu, skoro są dedykowane narzędzia do baz. Tylko ludziom czytać się nie chce.
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?
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...
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))...
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...
: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ę...
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...
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...
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
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" &...
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ą...
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,...
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...
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....
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...
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...
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...
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ć...
Tworzę dokument w Arkuszu1. Jest to comiesięczne zestawienie dokumentów sprzedaży zawierające kilka rubryk. Wszystko co możliwe zautomatyzowałem ile się dało, największy problem będę miał z rubryką gdzie podaję dane kupujących/odbiorców. Ci kupujący niebawem zaczną mi się powtarzać regularnie w kolejnych miesiącach. To autouzupełnianie jakie daje excel...
unikat tonsil kopiować excel excel kopiowanie excel excel
drzwi passat lista kanał ariva płyta whirpool
domofony cyfrowe reason instrukcja
Hegel H300 – schemat, architektura, serwis, SoundEngine, DAC AK4399 Hegel H300 – wzmacniacz stereo, SoundEngine, DAC AKM AK4399, opinie, typowe usterki
