Ich habe eine Tabelle mit ca. 1200 Spalten.
Jede 2. Spalte möchte ich markieren und die Funktion "Duplikate entfernen" anwenden.
Sowie es jetzt ist, müsste ich das 600 x manuell machen. Habt ihr eine Idee, wie des schneller laufen könnte?
LG
Max
A | B | C | D | |
1 | 54:15 | 1,55 | 08:00 | 34:00:00 |
2 | 08:00 | |||
3 | 08:00 | |||
4 | 08:00 | |||
5 | 08:00 | |||
6 | 08:00 | |||
7 | 06:15 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
A1 | =SUMME(C1:C7) | ||
B1 | =A1/D1 |
Zahlenformate | |||
Zelle | Format | Inhalt | |
A1 | '[h]:mm;@ | 2,26041666666667 | |
C1:C6 | 'hh:mm | 0,333333333333333 | |
C7 | 'hh:mm | 0,260416666666667 | |
D1 | '[h]:mm:ss | 1,45833333333333 |
Bedingte Formatierung Haupttabelle 1 | |||||||||||
Wird angewendet auf | Nr. Bed. Regeltyp | Operator | Formel1 | Formel2 | Format Schrift Füll-farbe | Unterstrichen | Schrift- farbe | Muster | Muster-farbe | Typ | Bereich |
$A:$D | 01.Bed.: Formel ist | =REST(SPALTE();2)=0 | 5287936 | 2 | $A:$D |
Bedingte Formatierung Haupttabelle 2 | oberere/unterer Bereich | ||||||||
Wird angewendet auf | Nr. Bed. | Format Zelle | Anhalten | Auswahl | Anzeige | Anzahl | Durchschnitt | Typ | Bereich |
$A:$D | 01.Bed. | Falsch | 2 | $A:$D |
Sub DuplicateAufSpalte1_entfernen()
Dim W As Worksheet
'Version Duplicate nur auf Spalte 1: xyz|abc und xyz|def sind Duplicate
Set W = ActiveSheet
For i = 1 To 1200 Step 2
W.Cells(1, i).Resize(1, 2).EntireColumn.RemoveDuplicates Columns:=1, Header:=xlNo
Next
End Sub
Sub DuplicateAufBeideSpalten_entfernen()
Dim W As Worksheet
'Version Duplicate auf Spalte 1 + 2: xyz|abc und xyz|abc sind Duplicate, xyz|def nicht
Set W = ActiveSheet
For i = 1 To 1200 Step 2
W.Cells(1, i).Resize(1, 2).EntireColumn.RemoveDuplicates Columns:=Array(1, 2), Header:= _
xlNo
Next
End Sub
wie gesagt: mit Vorsicht geniessenFor s = 2 to activesheet.Usedrange.Columns.Count Step 2
Colmns(s).removeDuplikates 1, xlno
Next
Gruß DanielDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen