excel办公技巧如何快速设置行高(Excel办公随心所欲---自动调整列宽和行高)

在日常工作中，我们经常需要根据单元格内容去调整列宽和行高的问题。要是手动去调整，这必然会很繁琐，格式上也会造成混乱。要是我们可以用点击一下鼠标的方法，所有的列宽和行高会自动做出调整，这该多棒啊....

下面的方法就可以轻松搞定以上问题，请看：

第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，点击确认并命名为自动调整列款和行高，单击该按钮，最终效果如下图：

效果图

简单吧，要是喜欢，请点赞，留言，转发哦....