Excel, potrzebuje pomocy, mi juz sie skonczyly pomysly

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» Paweł27 19:30 » Rafael_3D 19:29 » Dexter 19:29 » DYD 19:29 » Sherif 19:23 » Master/Pe 19:20 » piszczyk 19:15 » NimnuL 19:14 » rurecznik 19:11 » rainy 19:11 » Emios 19:10 » metacom 19:10 » J@rek 19:06 » kombajn4 19:04 » GLI 19:02 » emigrus 19:02 » myszon 18:59 » wielo 18:58 » wrrr 18:57 » PaKu 18:56 Dzisiaj przeczytano 28503 postów, wczoraj 27859 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Excel, potrzebuje pomocy, mi juz sie skonczyly pomysly , Galik 15/12/06 15:41
Sytuacja wyglada tak, mam w np kolumnie A jakies pozycje tekstowe (np. produkt 1, produkt 2, itd), nieposortowane, powtarzające się. Chopdzi teraz o to by, w kolumnie np. C wpisać mu taką formułę by, wyciągnął z kolumny A dany produkt (nazwę) tylko raz. Nie musi tego sortować. Czyli w kolumnie C mam otrzymać spis produktów z kolumny A.

Mam nadzieje ze ktoś mnie zrozumial :)

Proponuje w ten posób, choć to nie formuła i trzeba ręcznie :> , Conroy 15/12/06 16:00
Czyli sposób jest, ale nie jest to odpowiedź na Twoje pytanie ;)

Na kolumnie A załóż filtr - zaznacz całą kolumnę A, wybierz >> Dane >> Filtr >> Filtr zaawansowany >> Tylko unikatowe rekordy >> Ok (możesz pokombinować z tym kopiowaniem - mi się nie udało). I teraz po prostu weź to skopiuj do kolumny C, wyłączając przed wklejeniem to filtrowanie.
http://flickr.com/photos/myhacien
da
małe makro poroponuję , bober 15/12/06 16:01
wklejasz dane w kolumne A, od A1 począwszy, sortujesz rasnąco/malejąco
uruchamiasz makro

Sub dubel()
Range("A1").Select
x = 1
Do While Len(Range("A" & x).Value) > 0
If Range("A" & x).Value = Range("A" & x + 1).Value Then
Do While Range("A" & x).Value = Range("A" & x + 1).Value
Range("A" & x + 1).Select
Selection.EntireRow.Delete
Loop
Else
x = x + 1
End If
Loop
Range("A" & x).Select
End Sub

masz gotową listę :o)
Toshiba L20-183
1. ... , bober 15/12/06 16:02
  zapomniałem dodać, że nie może być pustych wierszy
  Toshiba L20-183
wielkie, dzieki! , Galik 15/12/06 19:16
za odpowiedzi i za oba soposoby, troche te makro sobie dostosowalem, ale dziala tak jak chcialem :),
jesli nie przejdzie, bo bedzie za trudne dla niektorych osob, to zobie to tym pierwszym sposobem :D

pozdrawiam!
to jeszcze jedno pyt , Galik 15/12/06 19:24
jak zapisac w vba, to aby np wybierajac komorke A1, zaznaczyl mi obszar w ktorym sa rekordy, np A1:C55 ??
1. napisz dokładniej , bober 15/12/06 20:04
  o co chodzi/co chcesz osiągnąc to spróbuję pomóc :o)
  Toshiba L20-183
chodzi np o , Galik 15/12/06 21:10
dane zaczynaja sie od komorki A1, w kolumnie A cos jest B C D itd.. Np az do Z. Ilosc rekordow w wierszach jest powiedzmy do 200 wiersza. I teraz chodzi o to zeby makro ktore jest napisane nie bylo sztywne tylko w miare elastyczne, tzn. wskazując mu poczatek zakresu danych, zeby zaznaczyl mi go az do konca, czyli do 200 wiersza, a wiec zakres A1:Z200.
1. dodam, , Galik 15/12/06 21:12
  ze nie chodzi o to by zaznaczyc cale kolumny, lub cale wiersze bo w arkuszu moga byc tez inne dane ktorych nie chce ruszac
polowe juz zrobilem , Galik 15/12/06 23:02
korzystajac z w/w makra:

Sub zaznacz()
Range("A1").Select
X = 1
Do While Len(Range("A" & X).Value) > 0
If Len(Range("A" & X).Value) > 0 Then
X = X + 1
End If
Loop
X = X - 1
Range("A1:A" & X).Select
End Sub

Zaznaczy mi zakres w kolumnie, a nie moge teraz zrobic zeby to samo zrobil mi tylko ze w wierszu, tak zeby po zlozeniu wyszla zaznaczona tablica. O ile podstawienie za liczbe w adresie komorki zmiennej dziala, to jak to zrobic z litera adresu( tak zeby poruszac sie poziomo)?
Mi wyskakuja jakies bledy...