如何使用 VBA 設置 Excel 電子表格的列寬？

更新：2021 年 8 月；適用於 Excel 365、2019、2016。

在今天的 Excel 自動化教程中，我們將學習如何根據需要快速更改工作表列的寬度——但以編程方式使用 VBA（Visual Basic for Applications）。

先決條件

為了編寫 VBA 代碼，您首先需要確保您的開發人員選項卡已啟用。如果您不確定該程序，請務必查看我們的詳細程序。

在您的 Windows 計算機中，打開Microsoft Excel。
在主功能區上點擊Developer。
點擊Visual Basic命令。這將打開VBA 編輯器。
在左側項目資源管理器中，突出顯示您將在其中插入代碼的特定工作表。或者，您可以插入一個新模塊或將我們的代碼添加到現有的 VBA 模塊中。

設置一列寬

在此示例中，我們將在活動工作表中選擇一列並相應地對其進行修改。

使用 VBA 編輯器，將以下代碼複製到您的工作表或模塊。


Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

按 F5 或選擇 Run >> Run Sub 或 Form 運行您的代碼。
點擊文件>>保存或磁盤圖標保存您的工作。

更改多列範圍的寬度

在此示例中，我們選擇了一系列列，然後更改寬度。

您可以按照上一節中描述的相同方式應用代碼。

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

下一步

從 VBA 開始？請務必查看Excel 指南的 VBA 基礎知識。