Bị lỗi Chỉ lọc tố đa được 1047 hàng trùng nhau?

[phamvandunghp84]

Các bạn giúp mình với, tại sao không lọc được tới dòng 2000 ?

1/ nếu như này thì vẫn chạy được
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

2/ nhưng tăng lên 2000 thì bị lỗi?
ActiveSheet.Range("A2:C2000" & DongCuoi).RemoveDuplicates Columns:=1

nhờ các bạn sửa giúp đây là code mình đang dùng như sau:

Sub loc_hang_trung()
Windows("count.xlsm").Activate
Sheets("copyValue").Select

' xac dinh dong cuoi cung trong bang du lieu
Dim DongCuoi As Currency

DongCuoi = Sheets("copyValue").Cells(Rows.Count, 1).End(xlUp).Row

' loai bo gia tri trung trong bang, gom cot a, c, tu dong 2 toi dong cuoi chua du lieu
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

End Sub

 

[giaiphap]

Các bạn giúp mình với, tại sao không lọc được tới dòng 2000 ?

1/ nếu như này thì vẫn chạy được
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

2/ nhưng tăng lên 2000 thì bị lỗi?
ActiveSheet.Range("A2:C2000" & DongCuoi).RemoveDuplicates Columns:=1

nhờ các bạn sửa giúp đây là code mình đang dùng như sau:

Sub loc_hang_trung()
Windows("count.xlsm").Activate
Sheets("copyValue").Select

' xac dinh dong cuoi cung trong bang du lieu
Dim DongCuoi As Currency

DongCuoi = Sheets("copyValue").Cells(Rows.Count, 1).End(xlUp).Row

' loai bo gia tri trung trong bang, gom cot a, c, tu dong 2 toi dong cuoi chua du lieu
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

End Sub

Chổ màu đỏ này có vấn đề, bạn in nó ra xem thử nó là cái quái gì?
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

 

[phamvandunghp84]

Chổ màu đỏ này có vấn đề, bạn in nó ra xem thử nó là cái quái gì?
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

mình k hiểu ý bạn? in như nào bạn? mình copy công thức trên mạng thôi nên k hiểu

Bài đã được tự động gộp: 7/3/20

mình k hiểu ý bạn? in như nào bạn? mình copy công thức trên mạng thôi nên k hiểu

trước giờ mình vẫn dùng code đó để chạy thì vẫn ok. hôm nay dữ liệu tăng lên tới 2000 hàng thì bị báo lỗi, phải xóa bớt thì mới chạy

 

[giaiphap]

trước giờ mình vẫn dùng code đó để chạy thì vẫn ok. hôm nay dữ liệu tăng lên tới 2000 hàng thì bị báo lỗi, phải xóa bớt thì mới chạy

Lần trước là trúng rùa, bây giờ mới phát hiện lỗi.
Bạn thử dùng lệnh này và nhìn xem nó báo cái gì?

Msgbox "A2:C999" & DongCuoi

 

[phamvandunghp84]

Lần trước là trúng rùa, bây giờ mới phát hiện lỗi.
Bạn thử dùng lệnh này và nhìn xem nó báo cái gì?

Msgbox "A2:C999" & DongCuoi

Mình gửi file bạn xem giúp mình

Bài đã được tự động gộp: 7/3/20

Mình gửi file bạn xem giúp mình

nó báo như này bạn ạ

 

[giaiphap]

Mình gửi file bạn xem giúp mình

Bài đã được tự động gộp: 7/3/20

nó báo như này bạn ạ
View attachment 233044

Dùng thế này.

Sub loc_trung_mempool_count()
 Dim DongCuoi As Long
    With Sheets("copyValue")
        DongCuoi = .Range("A1000000").End(xlUp).Row
        .Range("A2:E" & DongCuoi).RemoveDuplicates Columns:=1
    End With
 End Sub

 

[phamvandunghp84]

Dùng thế này.

Sub loc_trung_mempool_count()
Dim DongCuoi As Long
    With Sheets("copyValue")
        DongCuoi = .Range("A1000000").End(xlUp).Row
        .Range("A2:E" & DongCuoi).RemoveDuplicates Columns:=1
    End With
End Sub

nó chạy rồi, cảm ơn bạn thật nhiều !!!

 

[be_09]

Các bạn giúp mình với, tại sao không lọc được tới dòng 2000 ?

1/ nếu như này thì vẫn chạy được
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

2/ nhưng tăng lên 2000 thì bị lỗi?
ActiveSheet.Range("A2:C2000" & DongCuoi).RemoveDuplicates Columns:=1

nhờ các bạn sửa giúp đây là code mình đang dùng như sau:

Sub loc_hang_trung()
Windows("count.xlsm").Activate
Sheets("copyValue").Select

' xac dinh dong cuoi cung trong bang du lieu
Dim DongCuoi As Currency

DongCuoi = Sheets("copyValue").Cells(Rows.Count, 1).End(xlUp).Row

' loai bo gia tri trung trong bang, gom cot a, c, tu dong 2 toi dong cuoi chua du lieu
ActiveSheet.Range("A2:C999" & DongCuoi).RemoveDuplicates Columns:=1

End Sub

Thử vầy xem:

Sub loc_hang_trung()
    Sheets("copyValue").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1
End Sub