hoangquanghn
Thành viên mới

- Tham gia
- 23/8/12
- Bài viết
- 33
- Được thích
- 3
- Nghề nghiệp
- Trắc địa bản đồ





Nhờ các anh chị giúp em tìm dữ liệu cột B trùng với cột E thì dữ liệu cột F sẽ move sang cột C theo tên tương ứng





Muốn code thì có code. Nếu 2 người mà trùng tên thì code nó ngu ngu nhé.Có cách nào dùng VBA để chuyển không anh ơi vì dữ liệu của em rất nhiều, em muốn kiểm soát việc move dữ liệu rồi thì còn lại những dòng nào còn thừa thiếu. Em xin cảm ơn!
Sub Find_Get()
Dim data(), Kq(), i, Rng As Range
With Sheets("List")
data = .Range(.[B5], .[B65536].End(3)).Value
End With
ReDim Kq(1 To UBound(data), 1 To 1)
For i = 1 To UBound(data)
Set Rng = Sheets("List").[E:E].Find(data(i, 1), , , 1)
If Not Rng Is Nothing Then
Kq(i, 1) = Rng.Offset(, 1)
End If
Next
Sheets("List").[C5].Resize(i - 1) = Kq
End Sub

