Problem w EXCELU pomóżcie!

[Gość: Ala]

Mam taki problem:
w jednym arkuszu mam takie dane:
imię nazwisko kwota
jan kowalski 200
Ewa Nowak 30
Iza Dziubek 350
Tom Konewka 75
Filip Jurek 450

W drugim arkuszu mam podobne dane
ale może być więcej osób i w innej kolejności i nie wszyscy się powtarzają
czyli np:
Iza Dziubek 150
Jan Kowalski 280
Ala Kowacz 70
Filip Jurek 20
Ela Morek 500

Jak zrobić aby uzyskać taką tabelę zawierającą dane:
jan kowalski 200 280
Ewa Nowak 30
Iza Dziubek 350 150
Tom Konewka 75
Filip Jurek 450 20

[Gość: wilk]

> Jak zrobić aby uzyskać taką tabelę zawierającą dane:
> jan kowalski 200 280
> Ewa Nowak 30
> Iza Dziubek 350 150
> Tom Konewka 75
> Filip Jurek 450 20
Bez sumowania ?

[Gość: Ala]

bez sumowania
chodzi o to aby móc porównać te wielkości mając dane z jednego arkusza w jednej
kolumnie, a z drugiego w kolumnie obok

[darek12345]

Gość portalu: Ala napisał(a):

> Mam taki problem:
> w jednym arkuszu mam takie dane:
> imię nazwisko kwota
> jan kowalski 200
> Ewa Nowak 30
> Iza Dziubek 350
> Tom Konewka 75
> Filip Jurek 450
>
> W drugim arkuszu mam podobne dane
> ale może być więcej osób i w innej kolejności i nie wszyscy się powtarzają
> czyli np:
> Iza Dziubek 150
> Jan Kowalski 280
> Ala Kowacz 70
> Filip Jurek 20
> Ela Morek 500
>
> Jak zrobić aby uzyskać taką tabelę zawierającą dane:
> jan kowalski 200 280
> Ewa Nowak 30
> Iza Dziubek 350 150
> Tom Konewka 75
> Filip Jurek 450 20


Trzeba użyć funkcji WYSZUKAJ.PIONOWO
tylko nazwiska muszą byc dokładnie takie same, nie może być np. w jednej
kolumnie jan kowalski a w drugiej kowalski jan
przykład użycia umieściłem tu:
darek.netstrefa.com/przyklad.xls

[Gość: jr]

Nic lepszego nie przychodzi mi do glowy, moze to zrobic w ten sposob:
Zakladam ze mamy 3 arkusze, Sheet1, Sheet2 & Sheet3. Kolumna A zawiera Imie, B
Nazwisko i C kwote. Procedura kopiuje wszystkie nazwiska z arkusza Sheet1 do
Sheet3. Gdy imie/nazwisko sie powtarza kwota jest dodawana. To samo jest
robione z arkuszem Sheet2:

PROCEDURA:
----------
Public Sub Polaczenie()
Dim i As Long
Dim j As Long
Dim Flag As Boolean
i = 2
Do While Len(Sheet1.Range("A" & i)) > 0 Or Len(Sheet1.Range("A" & i).Offset
(0, 1)) > 0
j = 2
Do While Len(Sheet3.Range("A" & j)) > 0 Or Len(Sheet3.Range("A" &
j).Offset(0, 1)) > 0
If UCase(Sheet1.Range("A" & i)) = UCase(Sheet3.Range("A" & j)) _
And UCase(Sheet1.Range("A" & i).Offset(0, 1)) = UCase
(Sheet3.Range("A" & j).Offset(0, 1)) Then
Sheet3.Range("A" & j).Offset(0, 2) = Sheet3.Range("A" &
j).Offset(0, 2) + Sheet1.Range("A" & i).Offset(0, 2)
Flag = True
End If
j = j + 1
Loop
If Flag = False Then
Sheet3.Range("A" & j).Offset(0, 0) = Sheet1.Range("A" & i).Offset
(0, 0)
Sheet3.Range("A" & j).Offset(0, 1) = Sheet1.Range("A" & i).Offset
(0, 1)
Sheet3.Range("A" & j).Offset(0, 2) = Sheet1.Range("A" & i).Offset
(0, 2)
End If
Flag = False
i = i + 1
Loop
'porownanie Sheet1 vs Sheet3
i = 2
Do While Len(Sheet2.Range("A" & i)) > 0 Or Len(Sheet2.Range("A" & i).Offset
(0, 1)) > 0
j = 2
Do While Len(Sheet3.Range("A" & j)) > 0 Or Len(Sheet3.Range("A" &
j).Offset(0, 1)) > 0
If UCase(Sheet2.Range("A" & i)) = UCase(Sheet3.Range("A" & j)) _
And UCase(Sheet2.Range("A" & i).Offset(0, 1)) = UCase
(Sheet3.Range("A" & j).Offset(0, 1)) Then
Sheet3.Range("A" & j).Offset(0, 3) = Sheet3.Range("A" &
j).Offset(0, 3) + Sheet2.Range("A" & i).Offset(0, 2)
Flag = True
End If
j = j + 1
Loop
If Flag = False Then
Sheet3.Range("A" & j).Offset(0, 0) = Sheet2.Range("A" & i).Offset
(0, 0)
Sheet3.Range("A" & j).Offset(0, 1) = Sheet2.Range("A" & i).Offset
(0, 1)
Sheet3.Range("A" & j).Offset(0, 3) = Sheet2.Range("A" & i).Offset
(0, 2)
End If
Flag = False
i = i + 1
Loop
End Sub