Gửi bởi
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.
đại khái thì phải dùng VBA , cũng chỉ xác định được 80%
Mã:
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