提供一个基于Excel2016及之后版本提供的PowerQuery解法。不过如果只处理一次，没必要用PowerQuery。如果每天每周每月经常都要干同样的事情，建议试试看PowerQuery。做好模板后，以后要做的就只是原始数据更新后刷新下模板即可。let
源 =Folder.Files(path),
删除的其他列 = Table.SelectColumns(源,{"Content", "Name"}),
已添加自定义 = Table.AddColumn(删除的其他列, "data", each Excel.Workbook([Content])),
删除的其他列1 = Table.SelectColumns(已添加自定义,{"data", "Name"}),
data = 删除的其他列1{0}[data],
Sheet1_Sheet = data{[Item="Sheet1",Kind="Sheet"]}[Data],
向下填充 = Table.FillDown(Sheet1_Sheet,{"Column1"}),
分组的行 = Table.Group(向下填充, {"Column1"}, {{"计数", each Table.RowCount(_), Int64.Type}, {"data", each _, type table [Column1=nullable text, Column2=nullable text]}}),
筛选的行 = Table.SelectRows(分组的行, each [计数] >= 2),
自定义1 = Table.TransformColumns(筛选的行,{"data",each List.Count(List.Distinct(_[Column2]))}),
筛选的行1 = Table.SelectRows(自定义1, each [data] >= 2),
自定义2 = Table.RowCount(筛选的行1),
转换为表 = #table(1, {{自定义2}}),
重命名的列 = Table.RenameColumns(转换为表,{{"Column1", "非重复计数"}})
in
重命名的列记得把path换成你原始文件所在的文件夹路径，并确保该文件夹下没有其他文件。原始数据也要确保就是下面这样子：}