VBA RemoveDuplicates删除整行

时间:2018-06-14 11:56:51

标签: excel vba excel-vba

我有一个自动收录器列表,需要每个月左右更新一次。该列表是从许多股票指数中编制而来的,因此包含重复数据。

数据在A&列中。 B其中A有代码,B有公司名称。

Dim wsSource As Worksheet
Set wsSource = Sheets("TickerList")

wsSource.Columns(1).RemoveDuplicates Columns:=Array(1)

两个问题:

  1. 上面的代码并没有删除A列中的重复项(尝试过的列(" A"))
  2. 我需要在A列中测试重复,但是在检测到重复时删除整行。
  3. 任何帮助表示赞赏,我的VBA生锈了。

    更新: 列调用不起作用,将代码更改为以下

    Dim wsSource As Worksheet
    Set wsSource = Sheets("TickerList")
    Set tickerRange = wsSource.Range(Range("A1"), Range("B1").End(xlDown))
        tickerRange.RemoveDuplicates Columns:=Array(1), Header:=xlYes
    

    并且该代码有效。不确定为什么Range.RemoveDuplicates可以工作但Columns.RemoveDuplicates不能。我在谷歌上搜索了几十个例子。

0 个答案:

没有答案