Câu hỏi: Tự động chuyển dữ liệu khi tìm thấy ký tự yêu cầu

[cachoichien]

Em gặp vẫn đề này xin các huynh giúp đỡ:
- Em có file excel gồm 2 sheet, sheet 1 để nhập dữ liệu (có 6 cột nhưng rất nhiều hàng) Em muốn tự động chuyển dòng nào có chuỗi ký tự yêu cầu sang sheet 2. Em có file vidu đính kèm ạ. Trong file có mô tả chi tiết vấn đề của em.
Cảm ơn các huynh!

 

[cachoichien]

Anh chị nào ghé qua topic biết về vấn đề này xin giup em với

 

[killitmore]

Bạn Copy code này vào rồi chạy nhé

Sub chuyen_data()
    
    Dim dimen1 As Long, lrow As Long, i As Integer, k As Integer
    Dim str_arr As Variant
    
    Sheets("BANG1. NKQ 0523").Activate
    lrow = Cells(Rows.Count, 3).End(xlUp).Row - 5
    dimen1 = Application.WorksheetFunction.CountIf(Range("C9:C29"), "*0544*")
    
    ReDim str_arr(1 To dimen1, 1 To 4)
    k = 1
    For i = 9 To lrow
        If InStr(1, Cells(i, 3).Value, "0544") Then
            str_arr(k, 1) = Replace(Cells(i, 3).Value, "0544", "0523")
            str_arr(k, 3) = Cells(i, 3).Offset(0, 3).Value
            str_arr(k, 4) = Cells(i, 2).Offset(0, 3).Value
            k = k + 1
        End If
    Next i
    
    Sheets("BANG2. NKQ 0544").Cells(9, 3).Resize(dimen1, 4).Value = str_arr
    
End Sub

 

[cachoichien]

Cảm ơn A/C killitmore ạ