Ошибка при удалении дубликатов через фильтр в Excel макро

Question

Я пытаюсь удалить повторяющиеся строки данных, когда у меня есть определенное значение в столбце 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. Мне любопытно, почему fRange не является приемлемым значением для объекта Range(), так как я предполагаю, что это то, что приносит ошибку.

Любая помощь будет оценена по достоинству.

Answer 1

frange в уже диапазоне. Попробуйте

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