Nhờ Anh, Chị giúp in đậm họ tên trong chuỗi văn bản (2 người xem)

[aikia]

Thân chào Anh / Chị
em có tập tin excel 3.000 người, trong đó cột thông tin gồm các dữ liệu:
Trần Văn An
- Năm sinh: 1990
- Ngày vào: 20/03/2002
- Chuyên môn: Cử nhân kế toán

Nhờ mọi người giúp em in đậm dòng dữ liệu họ tên, với kết quả:
Trần Văn An
- Năm sinh: 1990
- Ngày vào: 20/03/2002
- Chuyên môn: Cử nhân kế toán

Trân trọng

 

[Nhattanktnn]

Thân chào Anh / Chị
em có tập tin excel 3.000 người, trong đó cột thông tin gồm các dữ liệu:
Trần Văn An
- Năm sinh: 1990
- Ngày vào: 20/03/2002
- Chuyên môn: Cử nhân kế toán

Nhờ mọi người giúp em in đậm dòng dữ liệu họ tên, với kết quả:
Trần Văn An
- Năm sinh: 1990
- Ngày vào: 20/03/2002
- Chuyên môn: Cử nhân kế toán

Trân trọng

Thử code sau :

Sub BoldText()
Dim Cll As Range
    For Each Cll In Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row)
        Cll.Characters(1, Len(Split(Cll.Value, Chr(10))(0))).Font.Bold = True
    Next
End Sub

 

[bui_kiem]

Cll.Characters(1, InStr(Cll.Value, Chr(10))).Font.Bold = True