Xin giúp đỡ hàm tìm chuỗi (1 người xem)

[kamikaze11]

Chào các bạn, bây giờ mình muốn tìm chuỗi
Các bạn xem file đính kèm xong giúp mình ạ. Mình cảm ơn!

 

[befaint]

Chào các bạn, bây giờ mình muốn dùng các kí tự ở sheet1 tìm trong sheet2, nếu tìm thấy trả về kết quả là sheet2

"Treo đầu dê, bán thịt chó?"
File có mỗi sheet?

C1=IFERROR(LOOKUP(2,1/SEARCH(A1,$B$1:$B$8),$B$1:$B$8),"")

 

[kamikaze11]

"Treo đầu dê, bán thịt chó?"
File có mỗi sheet?

C1=IFERROR(LOOKUP(2,1/SEARCH(A1,$B$1:$B$8),$B$1:$B$8),"")

cảm ơn bạn nhé, lúc đầu định gửi tất cả file nhưng như thế rối quá nên xóa bớt đi thôi.

 

[phuyen89]

Chào các bạn, bây giờ mình muốn tìm chuỗi
Các bạn xem file đính kèm xong giúp mình ạ. Mình cảm ơn!

Mình góp 1 đoạn code vui.

Sub Test()
    Dim Ws As Worksheet
    Dim rngFind As Range
    Dim i As Long, Lrow As Long
    Lrow = Sheet1.Range("A1000").End(xlUp).Row
    Set Ws = Worksheets("Sheet1")
    Ws.Range("C1:C10000").ClearContents
    For i = 1 To Lrow
        Set rngFind = Ws.Range("B1", Ws.Range("B10000").End(xlUp)).Find(Cells(i, 1).Value)
        If Not rngFind Is Nothing Then
            Cells(i, 3).Value = rngFind.Value
        Else
            Cells(i, 3).Value = "Error"
        End If
    Next i
End Sub