phuyen89
Thành viên tích cực
- Tham gia
- 20/11/08
- Bài viết
- 875
- Được thích
- 341
- Nghề nghiệp
- Student
Hi các bác,
Em có 1 câu hỏi thể này: Giả sử em có 3 cột trong excel. Trong mỗi cột có nhiều các giá trị gồm dạng số và chữ vd là W001, W002. Các giá trị này lẫn lộn ở các hàng khác nhau, bây giờ em muốn lấy giá trị trùng của 3 cột để ra 1 cột khác thì phải làm thế nào. Ví dụ thế này
Cột 1 Cột 2 Cột 3
W001 W002 W003
W002 W003 W002
vậy giờ em muốn lấy giá trị trùng W002 thì làm sao ah.
Bạn thử dùng Code này xem sao. Mình chưa gán vào cells, chỉ để hiện thị Msgbox thôi!
PHP:
Sub FindDupValue()
Dim Rng1 As Range
Dim i As Integer, j As Integer
Dim Kq1, Kq2, Gt1, gt2
Dim k As Integer
For Each Rng1 In Range("C1:C528")
If Not IsEmpty(Rng1.Value) Then
For i = 1 To 527
Gt1 = Cells(i, 1).Value
If Gt1 = Rng1.Value Then
Kq1 = Gt1
Exit For
End If
Next i
For j = 1 To 527
gt2 = Cells(j, 2).Value
If gt2 = Rng1.Value Then
Kq2 = gt2
Exit For
End If
Next j
If Kq1 = Gt1 Then
If Gt1 = gt2 Then
MsgBox gt2
End If
End If
Kq1 = Empty
Kq2 = Empty
Gt1 = Empty
gt2 = Empty
End If
Next Rng1
End Sub
Các Anh/ Chị giúp em khắc phục lỗi, khi duyệt qua Cells trống thì nó vẫn chạy code, mặc dù em đã cho nó
.not empty(rng1.value)
Nhưng vẫn còn 1 vài trường hợp bị.