我有一个自动收录器列表,需要每个月左右更新一次。该列表是从许多股票指数中编制而来的,因此包含重复数据。
数据在A&列中。 B其中A有代码,B有公司名称。
Dim wsSource As Worksheet
Set wsSource = Sheets("TickerList")
wsSource.Columns(1).RemoveDuplicates Columns:=Array(1)
两个问题:
任何帮助表示赞赏,我的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不能。我在谷歌上搜索了几十个例子。