Получение дублированных результатов от уникальной фильтрации - PullRequest
0 голосов
/ 13 июня 2019

У меня есть куча данных, состоящая из большого количества информации о процессах. Например, я хочу отфильтровать все уникальные коды ошибок в данных и все уникальные действия. Я пытаюсь сделать это с помощью следующей процедуры. В целом, я доволен результатом, но первая запись моих данных всегда дублируется. Что я делаю не так?

посмотрите, как выглядит результат

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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...