VBA 方法1 这方法模拟4,5楼所述的手动方法。 Sub XXX1() [a:a].AdvancedFilter xlFilterCopy, CopyToRange:=[b1], Unique:=1 End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ VBA 方法2 这方法利用 Dictionary 对像的哈希函数原理,不重复地采集源数据。 Sub XXX2() Dim DIC As Object, rng, cell Set DIC = CreateObject("Scripting.Dictionary") rng = Range([a1], Cells(Rows.Count, 1).End(xlUp)) For Each cell In rng DIC(cell) = "" Next [b1].Resize(DIC.Count, 1) = Application.Transpose(DIC.keys) Set DIC = Nothing rng = Null End Sub