Giúp xóa dữ liệu trên 2 cột trong Excel 2007 - Dùng Remove Duplicate không được (1 người xem)

[trucbachlove]

Mình có dữ liệu trên 2 cột C và D như thế này, muốn tìm 1 lệnh để thực hiện công việc sau:

- Tìm các ô có dữ liệu giống nhau thì xóa, ví dụ dòng có 3-3, 6-6, a-a thì xóa cả 2 ô đó đi
- Tìm các ô có dữ liệu giống nhau ở các dòng và các cột khác nhau thì xóa
Ví dụ: các ô có số 3 thì xóa, ô có chữ a thì xóa

Mình đã thử dùng lệnh Remove duplicate trong phần data nhưng ko được, cả nhà chỉ giúp mình nhé

Tks much

 

[nmhung49]

Mình có dữ liệu trên 2 cột C và D như thế này, muốn tìm 1 lệnh để thực hiện công việc sau:

- Tìm các ô có dữ liệu giống nhau thì xóa, ví dụ dòng có 3-3, 6-6, a-a thì xóa cả 2 ô đó đi
- Tìm các ô có dữ liệu giống nhau ở các dòng và các cột khác nhau thì xóa
Ví dụ: các ô có số 3 thì xóa, ô có chữ a thì xóa

Mình đã thử dùng lệnh Remove duplicate trong phần data nhưng ko được, cả nhà chỉ giúp mình nhé

Tks much

Yêu cầu thứ 1 bạn có thể dùng code này

Sub Test()
Dim clls As Range
For Each clls In Range("C2:C13")
    If clls.Value = clls.Offset(, 1).Value Then
        clls.Clear: clls.Offset(, 1).Clear
    End If
Next
End Sub

Yêu cầu thứ 2 không hiểu

 

[trucbachlove]

Cái thứ 2 ý mình là tìm trong cả 2 cột, những dữ liệu giống nhau thì ô đó đều bị xóa đi

Ví dụ số 3, chữ a xuất hiện có lặp lại thì tất cả những ô có chữ a hay số 3 đều bị xóa đi

Tks bạn

 

[nmhung49]

Cái thứ 2 ý mình là tìm trong cả 2 cột, những dữ liệu giống nhau thì ô đó đều bị xóa đi

Ví dụ số 3, chữ a xuất hiện có lặp lại thì tất cả những ô có chữ a hay số 3 đều bị xóa đi

Tks bạn

Vậy thử code này
[GPECODE=vb]
Sub Test1()
Dim dic1 As Object, clls As Range
Dim dic2 As Object
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")


For Each clls In Range("C213")
If Not (dic1.exists(clls.Value)) Then

dic1.Add clls.Value, ""
Else
If Not (dic2.exists(clls.Value)) Then
dic2.Add clls.Value, ""
clls.Clear
End If
End If
Next
For Each clls In Range("C213")
If dic2.exists(clls.Value) Then
clls.Clear

End If
Next


End Sub
[/GPECODE]