VBA調整所有欄寬
當Excel要調整所有欄寬時,需要全選儲存格並於欄位上,點選右鍵來調整欄寬,如何使用VBA快速調整所有欄寬?
如以下欄寬太窄需要調整欄寬。
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-1.png)
輸入巨集
※輸入以下指令※
Sub 調整所有欄寬()
Columns.ColumnWidth = 20
End Sub
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-2.png)
20可以改成想要調整的寬度。
語法說明
Columns.ColumnWidth
‘所有欄的欄寬
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-3.png)
執行後即將所有欄寬調整成「20」。
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-4.png)
我們也可以結合「InputBox」指令,則可變成好用的欄寬調整工具。
VBA調整所有欄寬(輸入法)
輸入巨集
※輸入以下指令※
Sub 調整所有欄寬()
欄寬 = InputBox(“請輸入欄寬”)
Columns.ColumnWidth = 欄寬
End Sub
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-5.png)
語法說明
InputBox(“請輸入欄寬”)
‘跳出「請輸入欄寬」訊息方塊
欄寬 = InputBox(“請輸入欄寬”)
‘欄寬 = 輸入的欄寬數值
Columns.ColumnWidth = 欄寬
‘所有欄的欄寬 = 輸入的欄寬數值
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-6.png)
執行後跳出「請輸入欄寬」訊息方塊。
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-7.png)
則可輸入欄寬「20」或是想要調整的欄寬值。
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-8.png)
確定後即將所有欄寬調整成「20」。
![](https://lazyorangelife.com/wp-content/uploads/2024/01/VBA調整所有欄寬-9.png)