如何在 Excel 中自動調整列寬？

在 Excel 中，您可以使用「自動調整列寬」功能快速調整列寬以適應儲存格內容。有時候，您可能希望列寬能根據該列中最長的文字自動更新，也就是說，當在儲存格中輸入較長的文字字串時，列寬會自動調整大小以適應內容的長度。這在 Excel 中是否可以實現呢？

使用 VBA 程式碼自動調整列寬

使用快捷鍵自動調整列寬

使用 VBA 程式碼自動調整列寬

讓列寬隨著儲存格內容的長度自動更新似乎是一個有趣的技巧，您可以使用以下 VBA 程式碼來完成此操作。

1. 按住 ALT + F11 鍵，這將打開 Microsoft Visual Basic for Applications 視窗。

2. 然後在左側窗格的 VBA 專案物件中雙擊 ThisWorkbook 以打開一個空白模組，然後複製並將以下 VBA 程式碼貼到模組中：

VBA 程式碼：自動調整工作簿中的列寬

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

3. 然後保存並關閉此程式碼，現在，當您將長文字輸入儲存格時，列寬將自動調整以適應內容。

使用快捷鍵自動調整列寬

如果您有多個列，部分儲存格內容被隱藏（如下方螢幕截圖所示），您希望一次性調整列寬以適應其內容。以下快捷鍵可能會對您有所幫助。

1. 選擇要調整列寬的資料區域。

2. 按住 Alt 鍵並按下 H + O + I，現在您的列寬已經立即自動調整以適應其內容。請參閱螢幕截圖：

注意：如果您使用的是 Excel 2003 或更早版本，則需要使用這些快捷鍵：ALT + O + C + A。

相關文章：

如何在 Excel 中自動調整合併儲存格的行高？

如何在 Excel 中調整行高或列寬以適應文字？