Excel中利用VBA設(shè)置列寬和行高
如果要用VBA來(lái)設(shè)置區(qū)域的行高和列寬，可以用Range.ColumnWidth 屬性和Range.RowHeight 屬性，例如下例將選定的區(qū)域中各單元格的列寬和行高調(diào)整為指定的數(shù)值：
Sub SetColumnAndRow()With ActiveWindow.RangeSelection.ColumnWidth = 3.RowHeight = 19End WithEnd Sub
如果要將選定區(qū)域內(nèi)的各單元格的列寬和行高調(diào)整為最合適的值，可以用下面的代碼：
Sub SetColumnAndRow()With ActiveWindow.RangeSelection.Columns.AutoFit.Rows.AutoFitEnd WithEnd Sub
下面的代碼將活動(dòng)工作表中的所有單元格的行高和列寬恢復(fù)為默認(rèn)值：
Sub SetDefault()With ActiveSheet.Columns.ColumnWidth = .StandardWidth.Rows.RowHeight = .StandardHeightEnd WithEnd Sub
