Jämföra kolumner i Excel

[Bo Bjärdahlen]

Jag har två kolumner med telefonnummer och vill ha ut alla nummer som inte finns i båda kolumnerna.

 

Hur gör jag?

 

[inlägget ändrat 2001-06-20 10:45:08 av Bo Bjärdahlen]

[inlägget ändrat 2001-06-20 10:46:06 av Bo Bjärdahlen]

[inlägget ändrat 2001-06-20 10:48:21 av Bo Bjärdahlen]

[XL-Dennis]

Hej,

 

Du hittar ett flertal tips på min hemsida: http://www.xldennis.com,'>http://www.xldennis.com,

bl a "Jämföra listor"

 

Mvh

Dennis

 

 

 

 

 

 

 

http://www.xldennis.com

 

[DQ]

Skapa ett makro med koden:

 

Private Function returneraNummer() As Collection

Dim ruta As Excel.Range

Dim kontroll As Boolean

Dim i As Integer, j As Integer

Dim lista As Collection

 

Set lista = New Collection

Set ruta = Blad1.Range("a1")

 

Do

j = 0

kontroll = False

Do

If ruta.Offset(j, 1) = ruta.Offset(i) Then

kontroll = True

End If

j = j + 1

Loop While Not ruta.Offset(j, 1) = "" And Not kontroll

If Not kontroll Then

Call lista.Add(ruta.Offset(i).Text)

End If

i = i + 1

Loop While Not ruta.Offset(i) = ""

 

Set returneraNummer = lista

End Function

 

Private Sub skrivUt(ByRef lista As Collection)

Dim i As Integer

Dim ruta As Excel.Range

 

Set ruta = Blad2.Range("a1")

 

For i = 1 To lista.Count

ruta.Offset(i) = lista(i)

Next i

End Sub

 

'denna som anropas utifrån Excel

Public Sub skrivUtTel()

Dim lista As Collection

 

Set lista = returneraNummer

Call skrivUt(lista)

End Sub

 

 

Hoppas det löser sig. Jag har testat koden och det här fungerar. Sen får du ange dina startrutor eller skriva en metod som letar upp dem - vilket du vill och det samma för de blad eller böcker du vill skriva i/till. =) Lycka till!

 

Tillägg: denna kod fungerar inte bara för telefonnummer - den kan jämföra vilka typer av värden som helst. Så länge värdeA inte finns i kolumn1 men inte i kolumn2 så skrivs det ut.

 

//Emma

 

 

[inlägget ändrat 2001-06-20 14:39:52 av DQ]

[inlägget ändrat 2001-06-20 14:42:39 av DQ]

[Bo Bjärdahlen]

 

Hur väljer jag vilka kolumner som den skall jämför och var skriver den ut nummerna?

 

 

 

[XL-Dennis]

Bo,

 

Uppenbarligen gillar du inte formeltekniska lösningar men då Emmas kod missar poängen så får du chansen en gång till här ;-)

 

1. Slå ihop dina två listor till en.

2. Sätt en rubrik ovanför listan.

3. Välj kommandot Data | Filter | Avancerat filter.

4. I dialogrutan väljer "kopiera till annan plats" och bcökar för "Endast unika poster".

 

Lycka till,

Dennis

 

http://www.xldennis.com