Hướng dẫn chữ tự động xuống dòng trong Excel - Tự động dòng khi cột không đủ rộng trong Excel

Trong quá trình làm việc với file Excel, khi nhập nội dung cho ô có độ dài lớn, thường chữ sẽ không tự động xuống dòng mà tràn ra cột bên cạnh. Hãy theo dõi bài viết để biết cách để chữ tự động xuống dòng trong Excel - Tự động dòng khi hết chiều rộng của cột trong Excel.

Ví dụ khi viết dòng chữ vào ô C3 vượt quá chiều rộng của cột, chữ sẽ bị che lấp và không hiển thị đầy đủ.

1. Đối với ô đơn (không kết hợp các ô của cột hoặc dòng khác làm một), thực hiện rất dễ dàng:

- Chọn ô muốn chữ tự động xuống dòng khi cột không đủ rộng -> vào tab Home -> Alignment -> sử dụng tính năng Wrap Text:

- Sau khi sử dụng Wrap Text -> nội dung chữ trong ô sẽ tự động xuống dòng khi cột không đủ rộng:

2. Đối với ô dữ liệu được hợp nhất từ nhiều ô

- Trong trường hợp ô Excel được hợp nhất từ nhiều ô, sử dụng Wrap Text có thể làm cho chữ xuống dòng khi cột không đủ rộng, nhưng chiều cao của ô không thay đổi. Ví dụ khi hợp nhất ô B4 và ô C4 thành 1 ô và sau khi nhập nội dung, sử dụng Wrap Text chữ không tự động xuống dòng khi cột không đủ rộng:

- Trong trường hợp này (khi các ô được hợp nhất từ nhiều ô khác), bạn cần sử dụng thêm đoạn mã sau khi áp dụng tính năng Wrap Text:

+ Chọn file Excel mà bạn muốn chữ tự động xuống dòng khi cột không đủ rộng -> nhấn tổ hợp phím Alt + F11 để mở cửa sổ lệnh -> sao chép đoạn mã sau và dán vào sự kiện Change của worksheet:

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

+ Sau khi nhập đoạn mã lệnh, lưu và thoát khỏi VBA. Quay trở lại file Excel, nhập lại nội dung cho ô vừa tạo, và chữ sẽ tự động xuống dòng khi cột không đủ rộng, chiều cao của ô thay đổi, không có hiện tượng che lấp.

Dưới đây là hướng dẫn chi tiết về cách tự động xuống dòng trong Excel - Tự động xuống dòng khi cột đạt chiều rộng tối đa trong Excel phiên bản 2016. Chúc các bạn thành công và hãy trải nghiệm ngay nhé!