在日常工作中,我们经常需要根据单元格内容去调整列宽和行高的问题。要是手动去调整,这必然会很繁琐,格式上也会造成混乱。要是我们可以用点击一下鼠标的方法,所有的列宽和行高会自动做出调整,这该多棒啊.... 下面的方法就可以轻松搞定以上问题,请看: 第1步:依次单击[开发工具]--->[Visual Basic]--->[插入]--->[模块]命令,在模块窗口中输入以下代码,如下图: 在模块中输入代码 Sub AutoRowsColumns() Application.ScreenUpdating = False ActiveSheet.Rows("1:1048576").AutoFit ActiveSheet.Columns("A:XFD").AutoFit ActiveSheet.Range("A1:XFD1048576").HorizontalAlignment = xlLeft ActiveSheet.Range("A1:XFD1048576").VerticalAlignment = xlCenter Application.ScreenUpdating = True End Sub 第2步:在活动工作表中插入命令按钮。方法是依次单击[开发工具]--->[插入],选择窗口控件按钮,松开左键的同时并指定宏名称为AutoRowsColumns,点击确认并命名为自动调整列款和行高,单击该按钮,最终效果如下图:
|