如果要用VBA來設置區域的行高和列寬,可以用Range.ColumnWidth 屬性和Range.RowHeight 屬性,例如下例將選定的區域中各單元格的列寬和行高調整為指定的數值:
Sub SetColumnAndRow()
With ActiveWindow.RangeSelection
.ColumnWidth = 3
.RowHeight = 19
End With
End Sub
如果要將選定區域內的各單元格的列寬和行高調整為最合適的值,可以用下面的代碼:
Sub SetColumnAndRow()
With ActiveWindow.RangeSelection
.Columns.AutoFit
.Rows.AutoFit
End With
End Sub
下面的代碼將活動工作表中的所有單元格的行高和列寬恢復為默認值:
Sub SetDefault()
With ActiveSheet
.Columns.ColumnWidth = .StandardWidth
.Rows.RowHeight = .StandardHeight
End With
End Sub