Xin hỏi Dò Tìm và xử lý dữ liệu bằng VBA (1 người xem)

[tle2003]

Các bạn xem file kèm theo và gíúp giùm,

Cám ơn nhiều

 

[SA_DQ]

Macro của bạn đây & những mong là khỏi đưa file lên!

Option Explicit
Sub Chuyen()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range, Rg0 As Range
 
 Set Sh = ThisWorkbook.Worksheets("Sheet1")
 Set Rng = Sh.Range(Sh.[h1], Sh.[h1].End(xlDown))
 Set Rg0 = Range([A2], [A2].End(xlDown))
 For Each Cls In Rg0
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        sRng.Offset(, 1).Value = sRng.Value
        sRng.Value = ""
        Cls.Value = ""
    Else
        Cls.End(xlUp).Offset(1).Value = Cls.Value
        If Cls.Address <> Rg0(1).Address Then Cls.Value = ""
    End If
 Next Cls
End Sub

 

[tle2003]

Cám ơn bạn nhiều, Mình bấm lần 1 thì đúng , nhưng thử bấm tiếp thì lại xóa tiếp.
Nhờ bạn xem giúp,

 

[SA_DQ]

Đúng là chạy những lần sau còn sai; Vì lần đầu đã xóa đi vài ô tìm thấy ở cột [H]
Xin lỗi bạn & bạn sửa dòng lệnh đó lại thành

 Set Rng = Sh.Range(Sh.[h1], Sh.[h65500].End(xlUp))

giúp mình!

 

[tle2003]

Cám ơn bạn, mình đã thay vào như hướng dẫn, nhưng vẫn chỉ đúng lần bấm đầu tiên. Nhờ bạn xem giúp.

 

[SA_DQ]

Dữ liệu như trong file thì sau lần bấm đầu tiên, cột [H] của trang Sheet1 sẽ/đã được macro dời hết sang cột kề bên fải
(Chỉ còn mỗi chàng [H1] không xuy xuyễn)
Vậy sau đó bạn có bấm vạn lần nữa cũng vậy mà thôi; Còn gì trên cột [H] đâu mà suy suyễn!

 

[tle2003]

Cái khúc mắc còn lại của tôi là nếu không có ở sheet1 thì còn lại ở sheet2 - không bị xóa.
Nhờ bạn xem giúp.

 

[swalowbird]

Cái khúc mắc còn lại của tôi là nếu không có ở sheet1 thì còn lại ở sheet2 - không bị xóa.
Nhờ bạn xem giúp.

chịu