VBA代码实现excel表格输入内容自动调整行高、列宽

1. 打开excel表，如图1

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

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

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

   

5. 复制代码，如图

   

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

   这段 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
   '这两行代码会自动调整'整个工作表的列宽和行高，使其适应内容。
   '总之，这段代码的作用是在用户选择单元格时自动调整列宽和行高，以确保内容能够完整显示。🙂
   

7. 效果自己试试吧