在日常工作中,我们经常需要根据单元格内容去调整列宽和行高的问题。要是手动去调整,这必然会很繁琐,格式上也会造成混乱。要是我们可以用点击一下鼠标的方法,所有的列宽和行高会自动做出调整,这该多棒啊....
下面的方法就可以轻松搞定以上问题,请看:
第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,点击确认并命名为自动调整列款和行高,单击该按钮,最终效果如下图:
效果图
简单吧,要是喜欢,请点赞,留言,转发哦....
,