GoldenLine
Zaloguj się
Andrzej S.

Andrzej S. Recruitment
Consultant

Temat: Znalezc unikatowe dane dla kolumny X, ktorych nie ma w Y.

Sprawa jest taka. Mam 2 kolumny w Excelu w jednej x-ilosc adresow email y w drugiej y-ilosc adresow email. Zadaniem jest porownanie tych 2ch kolumn i wstawienie w kolumnie "Z" tylko tych adresow email, ktore sa unikalne dla kolumny X.

Np.
X kolumna:

a@op.pl
d@op.pl
c@op.pl
b@op.pl

Y kolumna:

c@op.pl
a@op.pl
b@op.pl

Z kolumna (Wynik):
d@op.pl

Chodzi o pojawienie sie w kolumnie Z tych adresow a nie podkreslenie ich tylko w kolumnie X. Sprawa jest oczywista w przypadku 3-4 adresow, ale chodzi o formule, ktora wykona zadanie na duzej ilosci adresow email.

Zalaczam link na chomiku z lista z adresami i kolumnami i mam nadzieje, ze ktos moze rozwiazac ta zagadke:

http://chomikuj.pl/Victoria_Llamosas/Dokumenty/Zadanie...

Podpowiedz: rozwiazaniem sa 2 unikatowe adresy emailowe. Jednym ze sposobow moze byc uzycie formuly VLOOKUP w excelu.
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Znalezc unikatowe dane dla kolumny X, ktorych nie ma w Y.

Dla jednio-kolumnowych zakresów wystarczy formuła =licz.jeżeli()
Zwróci ona ilość występowania, którą potem wystarczy przefiltrować i usunąć wartości <>0.

Jeśli miałbyś większe obszary, których zależność duplikatu określona jest przez kilka kolumn, to w takim przypadku roboty jest znacznie więcej i w tedy polecam takie rozwiązanie:

Obrazek
Link do wypowiedziLink
Marzanna Szulta

Marzanna Szulta właściciel, Usługi
Informatyczne
SZULTASET

Temat: Znalezc unikatowe dane dla kolumny X, ktorych nie ma w Y.

A ja zaproponuje takie makro:


Sub Unikaty()

Dim Komorka As Range

Dim i As Long

Dim Szukaj As String

Dim Ile As Integer

Dim Koniec

i = 1

Koniec = Range("a1").End(xlDown).Address

For Each Komorka In Range("A2:" & Koniec)

    If IsEmpty(Komorka) Then Exit Sub

    Szukaj = Komorka.Value

    Ile = WorksheetFunction.CountIf(Range("B:C"), "=" & Szukaj)

    If Ile = 0 Then

     i = i + 1

     Range("C" & i).Value = Szukaj

    End If

Next Komorka

End Sub
Link do wypowiedziLink
Tomasz Gryzio

Tomasz Gryzio Dyrektor
zarządzający/Trener/
Konsultant - It
School

Temat: Znalezc unikatowe dane dla kolumny X, ktorych nie ma w Y.

Witam,

Formuła wyglądać będzie tak:


=JEŻELI.BŁĄD(INDEKS($A$1:$A$51;MIN(JEŻELI(((--(LICZ.JEŻELI($B$2:$B$51;$A$2:$A$51)=0))*(--(LICZ.JEŻELI($C$1:C1;$A$2:$A$51)=0)))=1;WIERSZ($A$2:$A$51);99^99)));"")


Podpowiedź: wbijamy ją tablicowo (zatwierdzając Ctrl+Shift+Enter) do C2 i przeciągamy w dół.

SQLem wyglądać to będzie tak:
SELECT distinct x.`X lista`
FROM `Sheet1$A:A` x
where (select count(1) from `Sheet1$B:B` y where x.`X lista`=y.`Y lista`) = 0

Pozdrawiam!Ten post został edytowany przez Autora dnia 10.02.15 o godzinie 21:07
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Dane z wielu kolumn przydzi...




Wyślij zaproszenie do
Anuluj