Chào mọi người
Bình thường mình cũng dùng được iferror trong vba để sử dụng khi dùng hàm find, nhưng hôm nay không biết là nhấn sai gì mà làm hoài nó vẫn bị lỗi, nên nhờ mọi người coi giúp code
Cám ơn mọi người
Bình thường mình cũng dùng được iferror trong vba để sử dụng khi dùng hàm find, nhưng hôm nay không biết là nhấn sai gì mà làm hoài nó vẫn bị lỗi, nên nhờ mọi người coi giúp code
Mã:
Sub xoachu()
Dim lsrw, i As Long
Dim b As Variant
Dim a As Variant
Dim d As Variant
Dim c As Variant
Dim arr()
Dim arr1()
lsrw = Sheet1.Range("A1000000").End(xlUp).Row
arr = Sheet1.Range("D2:H" & lsrw).Value
ReDim rearr(1 To UBound(arr), 1 To LBound(arr))
a = "con,cha,me,anh,chi,em,m?,ch?,cô,d́,ông,bà,co,di,ong,ba,ban,dong nghiep,dn,e"
c = "5/12 kh reng 27/11 kh rr con cm off het , dien dn#09057"
For i = 1 To UBound(arr)
For Each d In Split(c, ",")
For Each b In Split(a, ",")
If Application.WorksheetFunction.IfError(Application.WorksheetFunction.Find(b, d), "") <> "" Then
rearr(i, 1) = Trim(rearr(i, 1)) & ", " & Trim(c)
Exit For
End If
Next b
Next d
Next i
Sheet1.[H2].Resize(i - 1, 1) = rearr
End SubCám ơn mọi người
