Avatar billede bpedersen Novice
04. september 2008 - 11:03 Der er 9 kommentarer og
1 løsning

sammenligne 2 kolonner

Hej Excel eksperter

Jeg er helt novise i excel, og har brug for lidt hjælp. :o)

jeg har 2 kolonner med tal, og jeg vil gerne sammenligne dem og outputtet skal så være de tal der ikke er i begge kolonner.

Håber I vil hjælpe!

på forhånd tak

/Brian
Avatar billede excelent Ekspert
04. september 2008 - 16:13 #1
Man kan fx. farve de celler/tal i den ene kolonne som ikke er med i den anden og vise versa
Er det er brugbar løsning ?
Avatar billede jkrons Professor
04. september 2008 - 16:53 #2
Er der tal i kolonne 1, som ikke forekommer i 2, samtidigt med at der er tal i kolonne 2, som ikke forekommer i 1, eller er kolonne 2 en delmængde af 1.

Altaå er dette situationen

1  1
2  3
3  5
4
5

eller denne

1  4
2  5
3  6
4  7
5  8
Avatar billede bpedersen Novice
04. september 2008 - 18:12 #3
Situationen er denne:

1  1
2  3
3  5
4  6

6
Avatar billede jkrons Professor
04. september 2008 - 20:10 #4
Her en idé. Om den kan bruges afgør du selv.

Flyt kolonne 2 til Ark2 og afpsil denne makro:

Sub SletRaekke()
    Dim a As Variant
    For Each c In Sheets(2).Range("a:a").Cells
        If c.Value = "" Then Exit Sub
            a = c.Value
            For Each x In Sheets(1).Range("a:a").cells
                If x.Value = a Then
                    x.EntireRow.Delete shift:=xlUp
                End If
            Next x
    Next c
End Sub

Den forudsætter at kolonnen, hvor der skal slettes står i Ark1 - kolonne A, og kolonnen, hvor der testes, hvad der skal slettes står i Ark2, kolonne A.
Avatar billede jkrons Professor
04. september 2008 - 20:10 #5
Husk at prøve i en kopi først :-)
Avatar billede bpedersen Novice
04. september 2008 - 21:35 #6
jkrons> Jeg tester det imorgen. pft. Og jeg husker kopien ;o)
Avatar billede znogen Nybegynder
07. september 2008 - 21:29 #7
Et andet bud:
Sub Sammenlign()

fra = 1: til = 180 ' Ret fra/til til aktuel første/sidste række



For Each c In Range("A" & fra & ":A" & til)

If Application.CountIf(Range("B" & fra & ":B" & til), c) Then

c.Interior.ColorIndex = xlNone

Else

c.Interior.ColorIndex = 6

End If

Next

For Each c In Range("B" & fra & ":B" & til)

If Application.CountIf(Range("A" & fra & ":A" & til), c) Then

c.Interior.ColorIndex = xlNone

Else

c.Interior.ColorIndex = 4

End If

Next

End Sub


som virker fint hos mig.
Avatar billede bpedersen Novice
08. september 2008 - 13:07 #8
jkrons> Det virkede perfekt. Tak for din hjlæp og tid. :oD
Avatar billede bpedersen Novice
08. september 2008 - 13:08 #9
jkrons> Smider du et svar ?
Avatar billede jkrons Professor
08. september 2008 - 17:26 #10
Her er et svar :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester