Hướng dẫn cách để văn bản tự động xuống dòng trong Excel khi chiều rộng của cột không đủ chứa toàn bộ nội dung.

Khi làm việc với các bảng tính dài trong Excel, bạn có thể gặp tình huống chữ không tự động xuống dòng và tràn sang cột bên cạnh. Bài viết này sẽ chỉ bạn cách điều chỉnh để văn bản tự động xuống dòng đúng cách khi cột không đủ rộng.

Ví dụ, khi bạn nhập một đoạn văn bản vào ô C3 mà độ rộng của cột không đủ, văn bản sẽ bị che khuất và không thể hiển thị đầy đủ.

1. Đối với ô không được hợp nhất với các ô khác trong cột hoặc dòng, việc thiết lập là khá đơn giản:

- Chọn ô mà bạn muốn áp dụng tính năng tự động xuống dòng khi vượt quá chiều rộng cột -> Truy cập thẻ Home -> Alignment -> Kích hoạt tính năng Wrap Text.

- Khi bạn đã kích hoạt Wrap Text, văn bản trong ô sẽ tự động xuống dòng khi không còn đủ không gian trong cột.

2. Đối với ô đã được hợp nhất từ nhiều ô khác nhau

- Khi làm việc với ô được hợp nhất từ nhiều ô khác nhau, mặc dù tính năng Wrap Text giúp văn bản xuống dòng khi chiều rộng cột bị hạn chế, nhưng chiều cao ô không thay đổi, khiến văn bản vẫn bị che khuất. Ví dụ, khi gộp ô B4 và C4 thành một ô duy nhất, sau khi kích hoạt Wrap Text, văn bản sẽ không tự động xuống dòng khi chiều rộng cột không đủ.

Khi gặp trường hợp các ô được gộp từ nhiều ô khác, bạn cần áp dụng mã lệnh sau sau khi đã chọn tính năng Wrap Text để đảm bảo văn bản được hiển thị đúng cách.

Để tự động xuống dòng trong Excel khi chiều rộng cột bị vượt quá, bạn có thể chọn file Excel và nhấn tổ hợp phím Alt + F11 để mở cửa sổ VBA. Sau đó, sao chép mã lệnh dưới đây 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 sao chép mã lệnh và lưu lại, bạn cần thoát khỏi VBA và quay lại Excel. Khi đó, nhập lại nội dung cho ô đã được tạo, và bạn sẽ thấy văn bản tự động xuống dòng khi chiều rộng cột thay đổi, đồng thời chiều cao ô cũng sẽ được điều chỉnh, giúp nội dung không bị che khuất.

Bài viết trên đã hướng dẫn chi tiết cách để văn bản tự động xuống dòng trong Excel, giúp bạn xử lý tình huống khi chiều rộng cột bị vượt quá trong phiên bản Excel 2016. Chúc bạn thực hiện thành công và dễ dàng thao tác hơn!