Avatar billede karina1971 Seniormester
12. marts 2024 - 09:00 Der er 4 kommentarer og
1 løsning

Sletning af højeste værdi ved dubletter

Hej

Kan man lave en formel, der sletter det højeste nummer i kolonne B, "Material", hvis der er dubletter (markeret med rød) i i kolonne C, fx:

10023097    691021
10077775    691021
10023113    691027
10077776    691027
10081320    691027

10077775 skal slettes
10077776 skal slettes
10081320 skal slettes

https://docs.google.com/spreadsheets/d/1QJhv8V4MJd2JkHYd7j4HyBhJEuLrWKZt/edit?usp=sharing&ouid=114151202120235803996&rtpof=true&sd=true
Avatar billede jens48 Ekspert
12. marts 2024 - 12:56 #1
Prøv med denne makro:

Sub Slet()
Dim LastRow, X As Long
LastRow = Cells(65356, 1).End(xlUp).Row
For X = 2 To LastRow
If WorksheetFunction.CountIf(Range("C:C"), Cells(X, 3)) > 1 And WorksheetFunction.MaxIfs(Range("B:B"), Range("C:C"), Cells(X, 3)) = Cells(X, 2) Then
Cells(X, 2).ClearContents
End If
Next
End Sub
Avatar billede karina1971 Seniormester
12. marts 2024 - 13:31 #2
@jens48 - tak for dit forslag. Hvis jeg kører denne makro, så sletter den begge varenumre i kolonne B og beholder kun det mindste varenummer, hvis der er 3 dubletter eller derover.
Avatar billede xl-Enthusiast Ekspert
12. marts 2024 - 14:31 #3
Avatar billede jens48 Ekspert
12. marts 2024 - 14:50 #4
Ups, der skal først testes og så slettes. I denne har jeg gjort brug af kolonne D. hvis det ikke er en mulighed, kan det sikkert klares med sortering før testen.

Sub Slet()
Dim LastRow, X As Long
LastRow = Cells(65356, 1).End(xlUp).Row
For X = 2 To LastRow
If WorksheetFunction.CountIf(Range("C:C"), Cells(X, 3)) > 1 And WorksheetFunction.MinIfs(Range("B:B"), Range("C:C"), Cells(X, 3)) <> Cells(X, 2) Then
Cells(X, 4) = 1
End If
Next
For X = 2 To LastRow
If Cells(X, 4) = 1 Then Cells(X, 2) = ""
Next
Range("d:d").ClearContents
End Sub
Avatar billede karina1971 Seniormester
13. marts 2024 - 06:52 #5
@jens48 - ja da, det virker!! Tak for hjælpen:-)
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