Tìm giá trị trùng nhau với 2 điều kiện

[Cuongnv0920]

Xin chào các A/C của GPE.
Mình có 1 file excel với vùng dữ liệu ("A1: D12"). Mình muốn so sánh nếu giá trị trong cột C và cột D nếu trùng nhau thì sẽ xóa cả 2 giá trị trùng nhau đó.
VD: tại vùng dữ liệu ("A1: D12") đang cho, sẽ xóa dòng số: 2 và dòng số: 9 (vì 2 dòng này trùng nhau tại cột C và cột D)
mình đã có đoạn code trong file nhưng mới chỉ dừng lại là: so sánh ở cột D & xóa được 1 giá trị nếu trùng nhau.
Mong các A/C của PGE giúp đỡ.

 

[befaint]

đã có đoạn code trong file

Chẳng thấy miếng cốt nào? Hay nấu thành cao hết rồi
---

 

[Cuongnv0920]

Chẳng thấy miếng cốt nào? Hay nấu thành cao hết rồi
---

Sub loctrung()
    Dim loctrung As Long
    loctrung = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.Range("A1:D" & loctrung).RemoveDuplicates Columns:=4
End Sub

Đây bác, nãy quên chưa lưu

 

[leonguyenz]

Sub loctrung()
    Dim loctrung As Long
    loctrung = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.Range("A1:D" & loctrung).RemoveDuplicates Columns:=4
End Sub

Đây bác, nãy quên chưa lưu

Thử đoạn code sau, chỉ loại trùng cột C, D

ActiveSheet.Range("A2:D" & loctrung).RemoveDuplicates Array(3, 4)

Nếu kiểm trùng cột A, B thì thêm vào Array, Array(1, 2, 3, 4)

 

[befaint]

nếu trùng nhau thì sẽ xóa cả 2 giá trị trùng

Lâu không sờ tới viết lâu ghê.. Mấy khi được vận dụng Hashtable

 

[Cuongnv0920]

Thử đoạn code sau, chỉ loại trùng cột C, D

ActiveSheet.Range("A2:D" & loctrung).RemoveDuplicates Array(3, 4)

Nếu kiểm trùng cột A, B thì thêm vào Array, Array(1, 2, 3, 4)
Nếu thếm Array như đoạn doce của bác thì đã so sánh trung nhau được 2 cột (3, 4)
nhưng mình muốn xóa cả 2 giá trị, nếu 2 giá trị đó trùng nhau.

Bài đã được tự động gộp: 15/5/19

Thử đoạn code sau, chỉ loại trùng cột C, D

ActiveSheet.Range("A2:D" & loctrung).RemoveDuplicates Array(3, 4)

Nếu kiểm trùng cột A, B thì thêm vào Array, Array(1, 2, 3, 4)

Nếu thếm Array như đoạn doce của bác thì đã so sánh trung nhau được 2 cột (3, 4)
nhưng mình muốn xóa cả 2 giá trị, nếu 2 giá trị đó trùng nhau.

Bài đã được tự động gộp: 15/5/19

Lâu không sờ tới viết lâu ghê.. Mấy khi được vận dụng Hashtable

Mình chạy code của bác báo lỗi.

 

[befaint]

báo lỗi.

Kêu báo lỗi nhưng chẳng thấy thông báo lỗi đó đâu.
Xem nó thông báo lỗi là gì thì làm theo nó hướng dẫn (Windows 10 mà lỗi .net framework thì xem lại bản Windows..)

 

[Cuongnv0920]

Kêu báo lỗi nhưng chẳng thấy thông báo lỗi đó đâu.
Xem nó thông báo lỗi là gì thì làm theo nó hướng dẫn (Windows 10 mà lỗi .net framework thì xem lại bản Windows..)

Hình lỗi đây bác.

 

[befaint]

lỗi

Bạn tìm cách bật cái .net framework lên

 

[Cuongnv0920]

Bạn tìm cách bật cái .net framework lên


View attachment 217253

tks bác, mình bật lên và chạy được rồi.

 

[Cuongnv0920]

Bạn tìm cách bật cái .net framework lên


View attachment 217253

Trong quá trình xử lý dữ liệu thì mình phát hiện ra phải tìm giá trị trùng nhau với 3 điều kiện.
thức là giờ so sánh cột 1, cột 3, cột 4.
mong bác giúp mình thêm phần này nữa ak.