通过Excelmacros中的filter删除重复项时出错

我试图删除列A中的指定值时重复的数据行

Dim lr As Long lr = Cells(Rows.Count, 1).End(xlUp).Row Dim dRange As Range Set dRange = Range("A2:P" & lr) ActiveSheet.AutoFilterMode = False Dim fRange As Range With dRange .AutoFilter Field:=1, Criteria1:="BEAM LENGTH" Set fRange = .SpecialCells(xlCellTypeVisible) ActiveSheet.AutoFilterMode = False End With Range(fRange).RemoveDuplicates Columns:=Array(1, 3, 7, 8, 9) 

该代码在Range(fRange).RemoveDuplicates Columns:=Array(1, 3, 7, 8, 9) Method 'Range' of object'_Global'failed的Method 'Range' of object'_Global'failed 。 我很好奇，为什么fRange不是Range()对象的可接受值，因为我认为这是带来了错误。

任何帮助，将不胜感激。

Answer 1

已经在一个范围内。 尝试

 fRange.RemoveDuplicates Columns:=Array(1, 3, 7, 8, 9)