跳到主要內容

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

在Excel中,您可以使用來調整列寬以快速適合單元格內容 自動調整列寬 特徵。 有時,您希望列寬根據該列中最長的文本自動更新,也就是說,當在單元格中輸入一些長文本字符串時,列寬將自動調整大小以適合內容的長度。 可以在Excel中處理嗎?

使用VBA代碼自動調整列寬

使用快捷鍵自動調整列寬


箭頭藍色右氣泡 使用VBA代碼自動調整列寬

似乎使列寬自動隨單元格內容的長度更新是一個有趣的技巧,您可以使用下面的VBA代碼完成它。

1。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications窗口.

2. 然後雙擊 的ThisWorkbook ,在 VBA項目 左窗格中的對像打開一個空白模塊,然後將以下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

文檔自動調整列寬-1

3。 然後保存並關閉此代碼,現在,當您在單元格中輸入長文本時,列寬將自動調整以適合內容。


箭頭藍色右氣泡 使用快捷鍵自動調整列寬

如果您有多列包含部分單元格內容的列被隱藏,如下面的屏幕截圖所示,則您希望立即調整列寬的大小以適合其內容。 以下快捷鍵可能會對您有所幫助。

文檔自動調整列寬-1

1。 選擇要調整列寬大小的數據范圍。

2。 按住 其他 鍵並按下 H + O +我,現在您的列寬已立即自動調整為其內容。 看截圖:

文檔自動調整列寬-1

注意: 如果使用的是Excel 2003和更早版本,則需要使用以下快捷鍵: ALT + O + C + A.


相關文章:

如何自動適應Excel中合併單元格的行高?

如何調整行高或列寬的大小以適合Excel中的文本?

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
saya tertarik dengan code VB yang anda terapkan tentang Cara mengisi kolom excel dengan VBA, jika pertanyaannya begini Bagaimana cara mengisi kolom dan baris tertentu di excel dnegan VBA?
jadi yang terisi adalah kolom dan barisnya secara otomatis? mohon jawabannya..
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations