Làm cách nào để chỉ in đậm dòng đầu tiên hoặc từ đầu tiên trong ô trong Excel?

Trong một trang tính Excel, có thể có nhiều ô chứa nhiều dòng được phân tích bằng các phím Alt + Enter. Trong một số trường hợp, bạn có thể chỉ cần in đậm dòng đầu tiên trong các ô này. Hoặc chỉ in đậm từ đầu tiên để làm cho nó nổi bật trong các ô. Bài viết này chỉ ra hai phương pháp để bạn đạt được điều đó một cách chi tiết.

Chỉ in đậm dòng đầu tiên trong ô có mã VBA Chỉ in đậm từ đầu tiên trong ô có mã VBA

Chỉ in đậm dòng đầu tiên trong ô có mã VBA

Đoạn mã VBA sau đây có thể giúp bạn nhanh chóng chỉ in đậm dòng đầu tiên trong các ô đã chọn. Hãy làm như sau.

1. nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mô-đun.

Mã VBA: Chỉ in đậm dòng đầu tiên trong ô

Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range：", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
    With xCell
        .Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
    End With
Next
End Sub

3. Nhấn nút F5 phím để chạy mã. Sau đó a Kutools cho Excel hộp thoại bật lên, vui lòng chọn phạm vi với dòng đầu tiên bạn cần tô đậm, sau đó nhấp vào OK .

Sau đó, bạn có thể thấy tất cả các dòng đầu tiên của các ô đã chọn được in đậm ngay lập tức như hình minh họa bên dưới.

Chỉ in đậm từ đầu tiên trong ô có mã VBA

Như ảnh chụp màn hình bên dưới được hiển thị, đôi khi, bạn chỉ cần in đậm từ đầu tiên trong phạm vi A2: A4 trong Excel. Bạn có thể đạt được nó như sau từng bước.

1. nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mô-đun.

Mã VBA: Chỉ in đậm từ đầu tiên trong ô

Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range：", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  If xCell.Value <> "" Then
    xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
  End If
Next
End Sub

3. Nhấn nút F5 phím để chạy mã. Trong cửa sổ bật lên Kutools cho Excel hộp thoại, hãy chọn phạm vi mà bạn muốn in đậm từ đầu tiên, sau đó nhấn OK cái nút. Xem ảnh chụp màn hình:

Sau đó, bạn có thể thấy tất cả các từ đầu tiên của các ô đã chọn được in đậm ngay lập tức như hình minh họa bên dưới.

Bài viết liên quan:

• Làm cách nào để xóa tất cả các dòng trống hoặc chỉ dòng đầu tiên trong ô trong Excel?