как сопоставить уникальные данные из одного столбца в другой столбец, который имеет те же данные, но несколько раз

Question

Я новичок в кодировании VBA, борюсь с проблемой, нужна помощь с кодированием.

Вопрос заключается в следующем: ссылки на изображения выше и описаны ниже

На Листе 1 есть два столбца, столбцы A и B.Столбец А содержит 500 строк с другим именем человека, но одно и то же имя повторяется несколько раз.столбец B имеет статус задачи (то есть завершен, открыт, закрыт) для каждого имени человека.

Задача состоит в том, чтобы создать новый рабочий лист, который является своего рода отчетом листа1 Он имеет уникальные именаиз этих 500 строк и проверяет, сколько задач выполнено, задержано или открыто.

Это мой код для удаления дубликатов и создания уникальных.

Sub CreateUniqueList()      
    Dim lastrow As Long          
    Dim ws As String   
    ws = "Sheet1"      
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row      
    Sheets.Add.Name = "mysheet"        
    Sheets(ws).Range("A1:A" & lastrow).AdvancedFilter _     
        Action:=xlFilterCopy, _         
        CopyToRange:=Sheets("mysheet").Range("B1"), _  
        UNIQUE:=True  
End Sub

Answer 1

@ AdityaPal Вы можете создать сводную таблицу. Чтобы обновить его, после изменения исходных данных вы можете щелкнуть правой кнопкой мыши сводную таблицу и нажать Обновить.

Если вы хотите настроить макрос для автоматического создания сводной таблицы для вас - тогда есть пара потоков StackOverFlow об этом (т. Е. Как создать сводную таблицу с помощью vba