从独特的过滤中获取重复的结果

时间:2019-06-13 12:52:49

标签: excel vba

我有一堆数据,其中包含许多有关流程的信息。例如,我要过滤掉数据中所有的唯一错误代码以及所有唯一的活动。我尝试通过以下例程进行操作。 总体而言,我对结果感到满意,但我的数据的第一项始终是重复的。我在做什么错了?

see what the result looks like

Sub Test()
Dim Rohdaten_rows, Rohdaten_columns As Long
    Rohdaten_rows = Worksheets("Test").Cells(1, 1).End(xlDown).Row

    Worksheets("Test").Columns("C:Z").EntireColumn.Delete


    Worksheets("Test").Cells(1, 4) = "Unique Aktivitäten"
    Worksheets("Test").Cells(1, 6) = "Unique BuHi"
    Worksheets("Test").Range("A2:A" & Rohdaten_rows).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("Test").Range("D2"), unique:=True
    Worksheets("Test").Range("B2:B" & Rohdaten_rows).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("Test").Range("F2"), unique:=True



End Sub

0 个答案:

没有答案