- Katılım
- 11 Mart 2005
- Mesajlar
- 3,056
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba
Aşağıdaki kodda;
If UBound(Filter(Array_1, eleArr_1)) = 0 Then
satırında hata vermekte, bunu nasıl düzenleyebilirim?
ilginiz için şimdiden teşekkürler,
Aşağıdaki kodda;
If UBound(Filter(Array_1, eleArr_1)) = 0 Then
satırında hata vermekte, bunu nasıl düzenleyebilirim?
ilginiz için şimdiden teşekkürler,
Kod:
Sub Remove_All_Duplicated()
Dim Rng As Range
Dim Array_1
Dim Array_2()
Dim eleArr_1, x
x = 0
LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, "N").End(xlUp).Row
Set Rng = ActiveSheet.Range("N2:N" & LR)
Array_1 = Rng.Value
For Each eleArr_1 In Array_1
If UBound(Filter(Array_1, eleArr_1)) = 0 Then
ReDim Preserve Array_2(x)
Array_2(x) = eleArr_1
x = x + 1
End If
Next
End Sub