Tô đậm một từ trong một chuỗi ở một cột cho trước

[bonamana]

Chào cả nhà.
Em có một cột chứa từ cần in đậm, giờ em muốn in đậm từ đó ở trong một chuỗi thì làm như thế nào ạ. Em cảm ơn.

 

[doveandrose]

Chào cả nhà.
Em có một cột chứa từ cần in đậm, giờ em muốn in đậm từ đó ở trong một chuỗi thì làm như thế nào ạ. Em cảm ơn.
View attachment 157301

đại khái thì phải dùng VBA , cũng chỉ xác định được 80%

Public Sub hello()
Dim arr, r As Long, lPos As Long
Application.ScreenUpdating = False
With Sheet1
    arr = .Range("A1:B" & .[A65000].End(xlUp).Row).Value
    '.Range("B1:B" & UBound(arr)).Characters.Font.Bold = False
    For r = 1 To UBound(arr) Step 1
        If Right(arr(r, 1), 1) = "N" Then arr(r, 1) = Left(arr(r, 1), Len(arr(r, 1)) - 1)
        If Left(LCase(arr(r, 1)), 3) = "be " Then arr(r, 1) = Mid(arr(r, 1), 4)
        lPos = InStr(1, LCase(arr(r, 2)), LCase(arr(r, 1)))
        If lPos > 0 Then
            .Range("B" & r).Characters(lPos, Len(arr(r, 1))).Font.Bold = True
        End If
    Next
End With
Application.ScreenUpdating = True
End Sub