[說明]
依據儲存格內資料行數,先自動設置列高,但因某些因素,使用者還想再加大列高,但不想人工調整,故寫這簡易的程式碼,來讓使用者依需求將列高依倍數加大
[程式碼]
Sub JS() '依據儲存格內資料行數自動設置列高並在依倍數加大
Cells.Select '整張工作表選擇
Cells.EntireRow.AutoFit '所有列高自動調整成適當列高
'下面這兩行是要取得資料最後一列的列號,當成FOR迴圈的最終值
Range("a1").Select '儲存格選擇RANGE("A1)儲存格
Y = Selection.End(xlDown).Row '將Y設定成最後一列的列號
For I = 2 To Y '從第2列,跑到資料的最後一列
H = Rows(I).RowHeight '抓取第I列的列高
Rows(I).RowHeight = H * 1.1 '依據抓取到的列高乘上1.1倍,此時列高就會比最前面兩行程式碼所執行的最適列高再放大一定的倍數
Next
End Sub
[特別說明]
「Cells.Select」、「Cells.EntireRow.AutoFit」,這兩行程式碼一定要寫在FOR迴圈外,否則每跑一次FOR迴圈,前一行的列高就會再被調回原來的最適列高。
「Rows(I).RowHeight = H * 1.1」,乘1.1這個數值,可依需求自行設定。
![20180128 黑.png 20180128 黑.png](https://pic.pimg.tw/junshienwu/1517326576-2025371074.png)
文章標籤
全站熱搜