RemoveDuplicates后边必须跟参数否则不起作用
ActiveSheet.Range("G21:R36").RemoveDuplicates Columns:=12, Header:=xlYes
其中Columns参数指定要删除重复项的列，如果是1的话，那么第一列中重复项所在行都会被删除，如果是2则只有1,2两列均重复的行才会被删除，以此类推，你的区域12列，那么只有12列均重复的行会被删除。
如果想在12列中只根据某几列的重复来删除，比如，1 3 7列。那么参数写为Columns:=Array(1,3,7)
year光阴化浮沫: 不好意思 现在才看到 非常感谢！
原文：https://www.cnblogs.com/onelikeone/p/10204443.html