Lọc tên người trong tên công trình..!

966
Mình cần lọc tên khách hàng trong tên công trình, nhờ mọi người chỉ giúp công thức nào lọc cho nhanh ạ..! Xin cảm ơn

Bạn thử sử dụng hàm này:

Them mã vào một module.

Function NameInText(Cell As Range) As String
    On Error Goto E
    Dim i%, k%, s$, ln%, sp, b%, z$, z_$
    s = Cell(1, 1).Value
    sp = Split(s, " ")
    For i = 0 To ubound(sp)
      ln = Len(sp(i)): k = k + ln + 1
      If b = 0 Then
         If sp(i) like "ông" Then b = 1
      Else
          If Cell(1, 1).Characters(k + 1, ln).Font.Bold Then z = z & z_ & sp(i):z_ = " " else exit for
      End if
    Next
E:
    NameInText = z
End Function

www.giaiphapexcel.com/diendan/threads/l%E1%BB%8Dc-t%C3%AAn-ng%C6%B0%E1%BB%9Di-trong-t%C3%AAn-c%C3%B4ng-tr%C3%ACnh.163577/

Bạn sử dụng code này trong module. Ví dụ của bạn thì dữ liệu không đồng nhất. Nếu đồng nhất và tìm chữ in đậm không thì có thể xài code dưới thử nhé. Thân

Public Function TimTen(ByVal rngText As Range) As String
    Dim theCell As Range
    Set theCell = rngText.Cells(1, 1)

For i = 1 To Len(theCell.Value)
        If theCell.Characters(i, 1).Font.Bold = True Then
            If theCell.Characters(i + 1, 1).Text = " " Then
                theChar = theCell.Characters(i, 1).Text
                Else
                theChar = theCell.Characters(i, 1).Text
            End If
            Results = Results & theChar
        End If
   Next i
   TimTen = Results
End Function

Chắc phải khai báo thêm. Ví dụ: Biến i, biến …..

Khóa học SprinGO phù hợp

Khoá học Trưởng phòng nhân sự

Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...

Xem khóa học