VBA一键调整EXCEL单元格行高列宽

　EXCEL2010中，每个单元格都有默认的行高和列宽，当输入的数据的长度大于EXCEL2010单元格默认的列宽时的列宽，那么数据就会超出该单元格的范围。如果它相邻的单元格中还没有数据，那么它将覆盖其相邻的单元格；如果它相邻的单元格中已经输入数据，那么该单元格中超出的部分将不能显示出来。
VBA一键调整EXCEL2010单元格行高列宽
　　我以下面这个例子介绍利用VBA实现一键调整EXCEL2010单元格行高列宽的方法。

　　打开EXCEL2010中的VBA编辑窗口，在VBA编辑窗口中输入以下代码：

Sub 一键调整行列宽()
With Selection.CurrentRegion
‘Rows.AutoFit
‘Columns.AutoFit
End With
End Sub

　　接着单击工具栏中的“保存”按钮对代码进行保存，然后在工作表中选中需要调整的区域，再单击菜单栏中的“运行”→“运行子过程/用户窗体”命令，当执行该程序后即可以看到工作表中，所有EXCEL2010单元格中的内容都能够完整显示出来。