VBA自動調整欄寬
當Excel複製與貼上資料時,常常需要調整欄寬,雖然只需要雙擊兩下欄位即可,但如果可以寫入巨集內則可省下每次調整欄寬的時間,那~如何使用VBA自動調整欄寬?
如:A~D欄儲存格的文字都超出欄位寬度了,如何自動調整欄寬?
輸入巨集
※輸入以下指令※
Sub 調整欄寬()
Columns(“A:D”).AutoFit
End Sub
語法說明
Coulmns(“A:D”)
‘A到D欄
Autofit
‘自動調整
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。
執行後即自動調整「A~D欄欄寬」。
其它語法
※輸入以下指令※
Sub 調整欄寬()
Range(“A1:D1”).EntireColumn.AutoFit
End Sub
VBA設定特定大小欄寬
輸入巨集
※輸入以下指令※
Sub 特定大小欄寬()
Columns(“A:D”).ColumnWidth = 20
End Sub
語法說明
ColumnWidth = 20
‘欄寬寬度20像素,若想調整成不同寬度,改變數字即可。
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。
執行後即調整「A~D欄欄寬」成「20」像素。