Kiểm tra sự trùng lặp trong excel

  • Thread starter Thread starter conan198
  • Ngày gửi Ngày gửi
Liên hệ QC

conan198

Thành viên mới
Tham gia
17/5/10
Bài viết
17
Được thích
0
Mình có đoạn code dưới đây, xin mọi người giúp đỡ
Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k, m, n As Integer
For m = 2 To 33
    For n = 3 To 33
        If (Cells(m, "H").Value = Cells(n, "F").Value) And (Cells(m, "i").Value = Cells(m, "G").Value) Then
        Cells(m, "O").Value = "trung"
        Else
        Cells(m, "O").Value = "Khong"
        End If
    Next n
Next m
End Sub
đoạn trên dùng để kiểm tra hàng mã 4 có cùng giá trị với hàng nào trong mã 3 không, nhưng không kiểm tra được xin mọi người sửa dùm
 

File đính kèm

Web KT

Bài viết mới nhất

Back
Top Bottom