代码之家  ›  专栏  ›  技术社区  ›  dinotom

VBA RemoveDuplicates删除整行

  •  0
  • dinotom  · 技术社区  · 8 年前

    我有一份股票行情表,大约每个月需要更新一次。该列表是根据许多股票指数编制的,因此包含重复项。

    数据在A和B列中,其中A代表股票代码,B代表公司名称。

    Dim wsSource As Worksheet
    Set wsSource = Sheets("TickerList")
    
    wsSource.Columns(1).RemoveDuplicates Columns:=Array(1)
    

    1. 上面的代码没有删除A列中的重复项(也尝试了列(“A”)

    任何人的帮助,我的VBA生锈了。

    更新: Columns调用无效,将代码更改为

    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
    

    0 回复  |  直到 8 年前