Mọi người chỉ mình có cách nào cắt chuỗi ký tự, tách lấy phần chữ in đậm không.

[toankhanh1]

Mọi người chỉ mình có cách nào cắt chuỗi ký tự, tách lấy phần chữ in đậm mà dễ hơn bài "cắt chuỗi ký tự, tách lấy phần chữ in đậm" không.

 

[huhumalu]

Bạn dùng thử function sau:

Function TimKyTuInDam(rng As Range) As String
    Dim cellValue As String
    Dim i As Integer
    
    ' Lấy giá trị từ ô được truyền vào
    cellValue = rng.Value
    
    ' Duyệt qua từng ký tự trong chuỗi
    For i = 1 To Len(cellValue)
        ' Kiểm tra xem ký tự có được in đậm hay không
        If rng.Characters(i, 1).Font.Bold = True Then
            ' Nếu có, thêm ký tự đó vào kết quả
            TimKyTuInDam = TimKyTuInDam & Mid(cellValue, i, 1)
        End If
    Next i
End Function