Bí quyết tự động ngắt dòng trong Excel (Wrap Text trong Excel)

Đối với những đoạn văn bản dài, việc ngắt đoạn hoặc xuống dòng là hết sức cần thiết để tạo sự cân đối và đẹp mắt. Trong thế giới của Excel, việc xuống dòng không còn đơn giản như việc ấn Enter như trong MS Word.

Hôm nay, hãy đồng hành cùng Mytour để khám phá công cụ Warp Text và cách tự động ngắt dòng một cách linh hoạt, phù hợp với độ rộng của cột!

Sử dụng Warp Text để tự động ngắt dòng cho từng ô riêng lẻ

Chẳng hạn, bạn đang sử dụng một bảng tính, nhưng các tiêu đề ở các cột E, F, G dài quá so với độ rộng của cột. Bạn không muốn điều chỉnh thêm độ rộng của cột.

Bước 1: Hãy lựa chọn ô bạn muốn tự động ngắt dòng. Trên thẻ Home (1) , nhấn vào biểu tượng Wrap Text (2).

Bước 2: Excel sẽ tự động điều chỉnh độ rộng của dòng (nhưng không làm thay đổi độ rộng của cột) và tạo dòng mới trong Excel.

Bước 3: Đối với cột F, mặc dù đã tự động chỉnh dòng nhưng cách ngắt dòng không được thẩm mỹ do độ rộng của cột. Bạn có thể thêm bước tự động điều chỉnh độ rộng của cột F để nó trở nên phù hợp và đẹp mắt.

Tự động ngắt dòng cho ô dữ liệu khi được gộp từ nhiều ô

Công cụ Warp Text chỉ áp dụng cho các ô riêng lẻ. Đối với các ô được gộp bằng công cụ Merge & Center, không tự động ngắt dòng được. Để thực hiện việc ngắt dòng tự động cho ô gộp, bạn có thể sử dụng đoạn mã Macro sau đây:

  

    
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim NewRwHt As Single
  Dim cWdth As Single, MrgeWdth As Single
  Dim c As Range, cc As Range
  Dim ma As Range 
  With Target
  If .MergeCells And .WrapText Then
  Set c = Target.Cells(1, 1)
  cWdth = c.ColumnWidth
  Set ma = c.MergeArea
  For Each cc In ma.Cells
  MrgeWdth = MrgeWdth + cc.ColumnWidth
  Next
  Application.ScreenUpdating = False
  ma.MergeCells = False
  c.ColumnWidth = MrgeWdth
  c.EntireRow.AutoFit
  NewRwHt = c.RowHeight
  c.ColumnWidth = cWdth
  ma.MergeCells = True
  ma.RowHeight = NewRwHt
  cWdth = 0: MrgeWdth = 0
  Application.ScreenUpdating = True
  End If
  End With
  End Sub

Mở cửa sổ VBA bằng cách nhấn tổ hợp phím Alt + F11. Trên tên Sheet chứa ô mà bạn muốn tự động ngắt dòng, nhấn chuột phải và chọn Insert -> Module.

Sao chép đoạn mã vào cửa sổ Module.

Quay lại Work Sheet, nhấn đôi vào ô bạn muốn tự động ngắt dòng, sau đó nhấn nút Enter để tự động ngắt dòng.

Kết quả sẽ hiển thị như hình ảnh dưới đây:

Chúc các bạn thành công!