VBA自動調整列高
當Excel複製與貼上資料時,常常需要調整列高,雖然只需要雙擊兩下列欄位即可,但如果可以寫入巨集內則可省下每次調整欄寬的時間,那~如何使用VBA自動調整列高?
如:1~9列儲存格的文字都超出列高了,如何自動調整列高?
![](https://lazyorangelife.com/wp-content/uploads/2023/05/VBA%E8%AA%BF%E6%95%B4%E5%88%97%E9%AB%98-1.png)
輸入巨集
※輸入以下指令※
Sub 調整列高()
Rows(“1:9”).AutoFit
End Sub
語法說明
Rows(“1:9”)
‘1到9列
Autofit
‘自動調整
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。
執行後即自動調整「1~9列列高」。
其它語法
※輸入以下指令※
Sub 調整列高()
Range(“A1:A9”).EntireRow.AutoFit
End Sub
VBA設定特定大小欄寬
輸入巨集
※輸入以下指令※
Sub 特定大小列高()
Rows(“1:9”).RowHeight = 30
End Sub
語法說明
RowHeight = 30
‘列高高度30像素,若想調整成不同高度,改變數字即可。
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。
執行後即調整「1~9列列高」成「30」像素。