Cách thức như sau .

• Mở Excel
• Bấm tổ hợp phím Alt+F11 .
• Bấm đúp vào ThisWorkBook trong Project Explorer , và copy đoạn mã VBA

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Application.ScreenUpdating = False

For Each Value In Target.Columns

    Worksheets(Sh.Name).Columns(Value.Column).AutoFit

Next Value

Application.ScreenUpdating = True

End Sub

• Quay trở lại Excel và mỗi khi gõ đoạn Text trong các ô sau đó bấm Enter nó sẽ tự động điều chỉnh lại độ rộng của ô .