急求!!excel如何设置在输入数据以后再自动适应列宽.

　　这个操作简单，只要选中所有的列，然后双击最后一列的那个列分割线，就可以自动适应列宽。如下图录制的操作：

　　

双击后，ab两列自动调整到适应的数值列宽。

是数据自动适应列宽，还是列宽自动适应数据。呵呵。

在设置单元格格式中，勾选缩小字体填充，就自动适应列宽了。

如果是自动适应数据，先选中列，在菜单→开始→格式→下拉菜单中，选择自动调整列宽。

想要实现题主所知说的“自动调整”效果，VBA为唯道一途径。

1. 打开excel-->Alt+F11打开VBA输入窗口-->

   双击需要设置效果的sheet, 如sheet1-->将如下代版码权复制到代码输入窗口。

2. 代码如下：

   Private Sub Worksheet_Change(ByVal Target As Range)
   Target.EntireColumn.AutoFit
   End Sub

试试直接操作Excel对象：
Activesheet.cells.EntireColumn.AutoFit '自动zd调节列宽以适应文字宽度

或者先内设置所有列宽，然後在容设置第二列列宽：
Activesheet.Columns("A:F").ColumnWidth =10
Activesheet.Columns("A").ColumnWidth =25

祝你成功！