使用如下代码,C1:C500为选中区域

[C1:C500].RemoveDuplicates Columns:=1