一、用VBA设置行高和列宽
1、将选定区域内各单元格的行高和列宽设置为指定的数值:
Sub SetSpecified()
With ActiveWindow.RangeSelection
.ColumnWidth = 2
.RowHeight = 10
End With
End Sub
2、将选定区域内各单元格的行高和列宽调整为最合适的值:
Sub SetAutoFit()
With ActiveWindow.RangeSelection
.Columns.AutoFit
.Rows.AutoFit
End With
End Sub
3、将活动工作表中的所有单元格的行高和列宽恢复为默认值:
Sub SetDefault()
With ActiveSheet
.Columns.ColumnWidth = .StandardWidth
.Rows.RowHeight = .StandardHeight
End With
End Sub
二、用VBA全选单元格
1、选择所有单元格(Cells是所有单元格的集合)
Sub SelectAllCells()
Cells.Select
End Sub
2、选择所有行(Rows是所有行的集合)
Sub SelectAllRows()
Rows.Select
End Sub
3、选择所有列(Columns是所有列的集合)
Sub SelectAllColumns()
Columns.Select
End Sub