打开excel表，如图1

右键点击表标签名，如：“sheet1”，弹出菜单，点击查看代码

代码编辑窗口 点击图中蓝色部分

点击worksheet，创建子程序，Private Sub Worksheet_SelectionChange(ByVal Target As Range)

复制代码，如图

代码解释 (手动输入代码，有代码提示)

这段 VBA 代码是在 Excel 中的工作表事件中使用的。让我为你解释一下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'这是一个名为 `Worksheet_SelectionChange` 的私有子程序。当用户在工作表中选择一个单元格或一组单元
'格时，Excel 会自动调用此子程序。`Target` 参数表示新选定的区域。

Worksheets("Sheet1").Columns("A:E").AutoFit
'这一行代码会自动调整工作表 "Sheet1" 中 A 到 E 列的列宽，以适应内容的宽度。
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
End Sub
'这两行代码会自动调整'整个工作表的列宽和行高，使其适应内容。
'总之，这段代码的作用是在用户选择单元格时自动调整列宽和行高，以确保内容能够完整显示。🙂

效果自己试试吧