thangtrung93
Thành viên mới

- Tham gia
- 6/7/15
- Bài viết
- 2
- Được thích
- 0
Hiện tại e có 3 cột như này:
1 1 1
2 2 2
3 3 3
4 4
5
Bây giờ em muốn chọn ra tại cột cuối (cột C) các giá trị không trùng trong 2 cột đầu (mảng "a1:b4"), code của em như sau:
Sub ouput()
Dim k As Long, endr As Long
Dim i As Variant, j As Variant
For Each i In Range("a1:b4")
For Each j In Range("c1:c5")
If i <> j Then
j.Offset(0, 1) = j
End If
Next j
Next i
End Sub
Nhưng kết quả không đúng, mọi người xem giúp em với ạ. Em cảm ơn nhiều!
1 1 1
2 2 2
3 3 3
4 4
5
Bây giờ em muốn chọn ra tại cột cuối (cột C) các giá trị không trùng trong 2 cột đầu (mảng "a1:b4"), code của em như sau:
Sub ouput()
Dim k As Long, endr As Long
Dim i As Variant, j As Variant
For Each i In Range("a1:b4")
For Each j In Range("c1:c5")
If i <> j Then
j.Offset(0, 1) = j
End If
Next j
Next i
End Sub
Nhưng kết quả không đúng, mọi người xem giúp em với ạ. Em cảm ơn nhiều!