Tìm kiếm và thêm dữ liệu vào cell. (2 người xem)

[hungcuongtx]

em có file excel, muốn vlookup những từ trong cặp dấu ngoặc 【 】, sau đó ghi giá trị tìm được ngay liền sau nó. Đoạn code sau chỉ tìm và thay thế luôn tất cả những giá trị có trong bảng, nó không lọc được chỉ những giá trị trong cặp dấu ngoặc 【 】 và cũng không ghi được giá trị phía sau mà thay thế luôn.
Rất mong các anh chị giúp đỡ.

Sub CHUYEN()
Dim i As Integer
Dim FindStr As String
Dim RepStr As String
For i = 7 To 10000
    With ThisWorkbook.Sheets("Sheet2")
        FindStr = .Range("B" & i).Value
        RepStr = .Range("C" & i).Value
    End With
        ActiveWorkbook.Sheets("Sheet1").Cells.Replace What:=FindStr, Replacement:=RepStr
    
Next i
End Sub