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: 76162 Skopiuj do schowka Tworzenie tabeli z pominięciem powtarzających wyrażeń
Autor Wiadomość
ma190 
Świeżak


Wersja: Win Office 2010
Posty: 2
Wysłany: 10-10-2024, 09:57   Tworzenie tabeli z pominięciem powtarzających wyrażeń

Dzień dobry!

Zastanawiam się czy jest możliwe, a w zasadzie w jaki sposób stworzyć automatycznie generująca się tabele która:

-Przejrzy dane z konkretnej kolumny
-Stworzy tabele uwzględniając w niej tylko niepowtarzające się wyrazy

Przykładowo mam w kolumnie następujące wyrazy:

Jabłka
Gruszki
Pomarańcze
Gruszki
Ananasy

i po zaznaczeniu tych komórek stworzy się tabela która będzie zawierać:

Jabłka
Gruszki
Pomarańcze
Ananasy

( Zdublowane gruszki zostają pominięte bo występują 2 razy, a chodzi mi o unikatowe frazy w tej tabeli - bez powtórek)
ID posta: 437273 Skopiuj do schowka
 
 
hurgadion 
ExcelSpec



Wersja: Win Office 2021
Pomógł: 1211 razy
Posty: 2792
Wysłany: 10-10-2024, 14:17   

Hej,
przetestuj makro w załączniku:
Kod:

Sub Unikalne()
Dim ost&

ost = Cells(Rows.Count, 1).End(xlUp).Row
Range("C:C").ClearContents
Range("A1:A" & ost).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True
End Sub

Makro jest podpięte pod przycisk. Pozdrawiam :lol:

unik.sol.xlsm
Pobierz Plik ściągnięto 10 raz(y) 27.54 KB

ID posta: 437277 Skopiuj do schowka
 
 
ma190 
Świeżak


Wersja: Win Office 2010
Posty: 2
Wysłany: 11-10-2024, 06:02   

Super - działa o to chodziło. Dziękuję :-)

Zastanawiam się jeszcze czy idzie tu wrzucić filtr który przy okazji mógłby pomijać wyrazy z ciągu.

np:

Owoce-Jabłka
Owoce-Gruszki
Owoce-Pomarańcze
Owoce-Gruszki
Owoce-Ananasy
Warzywa-Marchewki
Warzywa-Dynie

i w związku z tym że chce np. tylko owoce, bez tych powtarzających się to pewnie musiałby być dodatkowy warunek który pomija wyrazy zaczynajcie się na "Warzywa"

Czy idzie to w jakiś sposób zrobić?
ID posta: 437285 Skopiuj do schowka
 
 
hurgadion 
ExcelSpec



Wersja: Win Office 2021
Pomógł: 1211 razy
Posty: 2792
Wysłany: 11-10-2024, 10:03   

Hej,
może takim makrem:
Kod:

Sub Unikalne_bez_warzyw()
Dim ost&, tbl, TblK

ost = Cells(Rows.Count, 1).End(xlUp).Row
tbl = Range("A2:A" & ost).Value
Set TblK = CreateObject("Scripting.Dictionary")
On Error Resume Next
For i = LBound(tbl) To UBound(tbl)
    If tbl(i, 1) Like "owoce*" Then TblK.Add tbl(i, 1), 1
Next i
On Error GoTo 0

Range("C:C").ClearContents
Range("C1").Value = "owoce"
Cells(2, 3).Resize(TblK.Count) = Application.Transpose(TblK.keys)
End Sub

Przetestuj w załaczniku jak to działa, pozdrawiam :lol:

unik.owoce.dict.xlsm
Pobierz Plik ściągnięto 11 raz(y) 27.78 KB

ID posta: 437290 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.wip.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.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe