软件环境:
Excel2019
VBA代码编写:
右击工作表标签,点击查看代码。
输入这四行代码,保存。
Private Sub Worksheet_Change(ByVal Target As Range)
Cells.EntireColumn.ColumnWidth = 8.11
Cells.EntireColumn.AutoFit
End Sub
效果演示:
根据输入内容自动调节列宽。
清除内容,列宽自动变为默认值8.11。
Excel2019
右击工作表标签,点击查看代码。
输入这四行代码,保存。
Private Sub Worksheet_Change(ByVal Target As Range)
Cells.EntireColumn.ColumnWidth = 8.11
Cells.EntireColumn.AutoFit
End Sub
根据输入内容自动调节列宽。
清除内容,列宽自动变为默认值8.11。