excel vba实例005 如何设置列宽行高和其默认值

1、 首先不必说，打开excel按Alt+F11打开VBE（Visual Basic Edit）编辑器，双击VBE窗口左侧的“sheets（sheet1）”，然后在右侧写入代码。

3、 这是单个单元格设置的做法，如果要整张工作表呢，只需加上一句cells.selection。代码改为：Sub 设置列宽行高()Cells.Select '加在这个位置With ActiveWindow.RangeSelection.ColumnWidth = 12.RowHeight = 72End WithEnd Sub运行之后可以看到整张工作表的列宽行高都发生了变化。

5、 同样，如果需要全表格呢，不多说，上代码：Sub 设置自动填充列宽行高()Cells.Select '无外乎添加个全选单元格而已With ActiveWindow.RangeSelection.Columns.AutoFit.Rows.AutoFitEnd WithEnd Sub运行之后可以看到整个表格的列宽和行高都修改成了自动填充。

7、 同上两种一样，如果需要对整张工作表进行列宽和行高的设置，只需要加入Cells.Select这句。代码如下：胨检馁秣Sub 设置默认列宽行高()Dim myRange As RangeCells.SelectSet myRange = ActiveWindow.RangeSelectionSheets.Add.Name = "newsheet"myRange.ColumnWidth = Sheets("newsheet").StandardWidthmyRange.RowHeight = Sheets("newsheet").StandardHeightApplication.DisplayAlerts = FalseSheets("newsheet").DeleteApplication.DisplayAlerts = TrueEnd Sub运行之后可以看到整张工资表的列宽和行高都恢复成了刚新建工作表时的默认值了。