对于用录制写出的去重方法，如何把里面数组的值改为变量

Cells.Select
ActiveSheet.Range("$A$1:$O$481").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15), Header:=xlYes
上面是我用excel宏录制的去除重复项后的vba代码，现在在我想把 Array
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15) 这个数组变成变量，即可以控制删除重复项的列，应该如何写呢？

你试下
dim arr
arr=array(1,2,3,4)
Cells.Select
ActiveSheet.Range("$A$1:$O$481").RemoveDuplicates Columns:=arr, Header:=xlYes

不感兴趣

开通SVIP免广告

RemoveDuplicates方法没用过，刚百度了下，columns参数的传递可能有特殊规则
如果需删除重复值的列是连续的。
你试下下面这个思路
比如说
a到D列删除重复值
dim ir&,ic%
ir=181:ic=4
Cells.Select
ActiveSheet.Range("$A$1).resize(ir,ic).RemoveDuplicates Columns, Header:=xlYes

已解决，谢谢各位
Sub ExtracUniqValues()
Dim Rng As Range, Col(), i As Integer
Set Rng = Selection
ReDim Col(Rng.Columns.Count - 1)
For i = 1 To Rng.Columns.Count
Col(i - 1) = i
Next
Rng.RemoveDuplicates Col, Header:=xlGuess
End Sub

找了半天，最终在这里找到方法，赞一个！

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

9回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六