如何将唯一数据从一列匹配到具有相同数据但多次的另一列

Question

我是VBA编码的新手，我遇到问题，需要编码方面的帮助。

问题是：“图片链接”位于上方，并在下文进行了说明

Sheet1上有两列，A列和B列。 A列有500行，其中的人名不同，但是相同的名字被重复使用。 B列针对每个人的姓名具有任务状态（即完成，打开，关闭）。

任务是创建一个新的工作表，该工作表是该工作表的一种报告。它具有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线程（即How to create pivot table using vba