Tô đậm một từ trong một chuỗi ở một cột cho trước (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

bonamana

Thành viên mới
Tham gia
4/7/12
Bài viết
4
Được thích
0
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.
to dam excel.jpg
 

File đính kèm

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%

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
 
Web KT

Bài viết mới nhất

Back
Top Bottom