Avatar billede Latte Mester
28. marts 2017 - 17:00 Der er 5 kommentarer og
1 løsning

Find dubleret kolonne ud af 150

Jeg har 150 kolonner (A:ET). 

I hver kolonne kan der fra række 6 og nedefter stå en talværdi i hver celle. Nogle kolonner indeholder 2 rækker med tal (ex. A6:A8), mens andre kolonner indeholder 30 rækker med tal (ex. ES6:ES36)

Jeg skal finde de kolonner, hvor indholdet er identisk. Kan nogen hjælpe?
Avatar billede kim1a Ekspert
28. marts 2017 - 17:47 #1
Skal de stå på samme række?

Altså indhold A6:A8 står i ES12:ES14 - skal den også tælle?

Hvormange kolonner har du?
Avatar billede Jan Hansen Ekspert
28. marts 2017 - 18:21 #2
1. identisk indhold i samme række?
  eks A6=F6 og A10=F10 eller er de også identiske hvis A6=F10 og A10=F6

2. Hvad vil du have gjort ved identiske kolonner?
    Farvelagt baggrunden i kolonnen, eller?



Mvh Jan
Avatar billede Latte Mester
28. marts 2017 - 19:42 #3
Hej Jan

1. Ja, identisk indhold i samme række A6=F6 og A10=F10

2. Farve ville være helt fint
Avatar billede jens48 Ekspert
29. marts 2017 - 00:39 #4
Måske kan denne makro bruges. jeg har gået ud fra at flere sæt kolonner kan være ens. De bliver så farvet med forskellige farver.

Dim Col1, Col2, Row1, Row2, x, y, Color As Integer
Color = 3
For Col1 = 1 To 149
For Col2 = Col1 + 1 To 150
Row1 = Cells(65356, Col1).End(xlUp).Row
Row2 = Cells(65356, Col2).End(xlUp).Row
If Row1 = Row2 Then
y = 0
For x = 6 To Row1
If Cells(x, Col1) <> Cells(x, Col2) Then
y = 1
End If
Next
If y = 0 And Row1 > 6 Then
Range(Cells(6, Col1), Cells(Row1, Col1)).Interior.ColorIndex = Color
Range(Cells(6, Col2), Cells(Row1, Col2)).Interior.ColorIndex = Color
Color = Color + 1
End If
End If
Next
Next
End Sub
Avatar billede Jan Hansen Ekspert
29. marts 2017 - 03:37 #5
#4 et par små tilføjelser til din kode som gør makroen renser formateringen før den laver den for gentagne kørseler ikke giver forkert resultat (hvis der er blevet ændret i data mellem to kørsler)

Option Explicit

Dim Col1 As Integer, Col2 As Integer, Row1 As Integer, Row2 As Integer
Dim x As Integer, y As Integer, Color As Integer
Sub Test()
' øger hastighed på macroen
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
' renser baggrunden på alle celler
Color = 0
For Col1 = 1 To 140
    Row1 = Cells(65356, Col1).End(xlUp).Row
    Range(Cells(6, Col1), Cells(Row1, Col1)).Interior.ColorIndex = Color
Next
' ligger baggrund på identiske kolonner
Color = 3
For Col1 = 1 To 149
    For Col2 = Col1 + 1 To 150
        Row1 = Cells(65356, Col1).End(xlUp).Row
        Row2 = Cells(65356, Col2).End(xlUp).Row
        If Row1 = Row2 Then
            y = 0
            For x = 6 To Row1
                If Cells(x, Col1) <> Cells(x, Col2) Then
                    y = 1
                End If
            Next
            If y = 0 And Row1 > 6 Then
                Range(Cells(6, Col1), Cells(Row1, Col1)).Interior.ColorIndex = Color
                Range(Cells(6, Col2), Cells(Row1, Col2)).Interior.ColorIndex = Color
                Color = Color + 1
            End If
        End If
    Next
Next
' slår skærmopdateringen og beregning til igen
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
End Sub

mvh Jan
Avatar billede jens48 Ekspert
29. marts 2017 - 05:44 #6
Jeg havde ikke fået kopieret første linie af makroen med over, men med Jans forbedringer og i øvrigt gode forklaringer skulle det være sat på plads
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