Excel VBA复制唯一值重复第一个值 [英] Excel VBA to copy unique values duplicate 1st value

问题描述

我有这个excel VBA代码

I have this excel VBA code

Sub Module()

Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True

End Sub

我希望它从列A中获取所有唯一的值，并将它们转储到列D中

I expect it to grab all unique values from column A and dump them in column D

然而， D1是重复的。

However, the value in D1 is a duplicate.

为什么这样如何解决？

推荐答案

另一种方法，不需要标题。

An alternative approach, which doesn't require a header.

Sub Module()

Application.ScreenUpdating = False

With Range("A1:A10")
    .Copy .Offset(, 3)
    .Offset(, 3).RemoveDuplicates Columns:=1, Header:=xlNo
End With

Application.ScreenUpdating = True

End Sub

这篇关于Excel VBA复制唯一值重复第一个值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！