Excel中利用VBA設置列寬和行高

Excel中利用VBA設置列寬和行高

如果要用VBA來設置區域的行高和列寬，可以用Range.ColumnWidth 屬性和Range.RowHeight 屬性，例如下例將選定的區域中各單元格的列寬和行高調整為指定的數值：

Sub SetColumnAndRow()With ActiveWindow.RangeSelection.ColumnWidth = 3.RowHeight = 19End WithEnd Sub

如果要將選定區域內的各單元格的列寬和行高調整為最合適的值，可以用下面的代碼：

Sub SetColumnAndRow()With ActiveWindow.RangeSelection.Columns.AutoFit.Rows.AutoFitEnd WithEnd Sub

下面的代碼將活動工作表中的所有單元格的行高和列寬恢復為默認值：

Sub SetDefault()With ActiveSheet.Columns.ColumnWidth = .StandardWidth.Rows.RowHeight = .StandardHeightEnd WithEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。