【Excel VBA】自動調整欄寬

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」像素。

【Excel VBA】自動調整列高

其他文章分享

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *