如何在 Excel 中自動調整註解框大小，使其完美貼合內容？

作者Xiaoyang修改日期2024-09-04

當您在儲存格中插入註解時，註解框會以預設大小顯示。若輸入大量內容，部分文字將無法直接呈現。是否能自動調整註解框大小，使其完美貼合內容？

在工作表中自動調整註解框大小以符合其內容
 在儲存格範圍內自動調整註解框大小以符合其內容
 使用強大工具輕鬆自動調整註解框大小以符合其內容，適用於當前工作表或所有工作表

在工作表中自動調整註解框大小以符合其內容

在 Excel 中，您可以手動逐一拖曳註解框調整至理想大小，但若需處理大量註解框，此方法將費時又繁瑣。此時，不妨套用以下 VBA 程式碼，輕鬆提升效率！

1. 按下 ALT + F11，即可立即開啟 Microsoft Visual Basic for Applications 視窗！

2. 點選插入＞模組，並將下列巨集貼到模組視窗中。

VBA 程式碼：在工作表中自動調整註解框大小

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. 接著按下 F5 鍵執行此程式碼，即可自動調整目前工作表中所有註解框的大小，使其完美貼合內容，如下圖所示：

VBA 程式碼可自動調整工作表中註解框大小以符合內容

提示：此程式碼僅適用於目前工作表，無法自動調整您日後新增的註釋框。

「自動調整註解大小」是 Kutools for Excel 的實用功能，能幫您在工作表中快速自動調整註解框大小，完美貼合內容，效果如下方示範所示。立即下載試用！（30 天免費試用）

在儲存格範圍內自動調整註解框大小以符合其內容

若您只需自動調整特定範圍內的批註框大小，可使用以下 VBA 程式碼。

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入> 模組，並將下列巨集貼到模組視窗中。

VBA 程式碼：在儲存格範圍內自動調整註解框大小

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. 接著按下 F5 鍵執行此程式碼，系統將彈出提示方塊，請選取欲調整註解框大小的儲存格範圍，詳情請參閱下圖：

VBA 程式碼可選取範圍以自動調整註解框大小以符合內容

4. 接著點選確定，您所選取的批註框將自動調整大小，完美貼合註解內容。

提示：此程式碼無法自動調整您後續新增的註釋框。

自動調整註解框大小以符合其內容，適用於當前工作表或所有工作表

您可以試用自動調整註解大小的 Kutools for Excel 功能，自動調整 Excel 中所有註解框大小（適用於當前工作表或所有工作表）。操作步驟如下：

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 若要自動調整註解框大小以符合其內容（適用於當前工作表），請點選 Kutools > 更多 > 自動調整註解大小 > 當前工作表。

若您希望自動調整整個活頁簿中所有註解框的大小，請點選 Kutools > 更多 > 自動調整註解大小 > 所有工作表。請參閱下圖：

按一下 Kutools > 更多 > 自動調整註解大小

此時，所有註解框皆已自動調整大小，完美貼合其內容。請參閱下圖：

所有註解框皆已自動調整大小以符合其內容

注意事項：

1. 自動調整註解框大小後，日後每次編輯註解時，註解框都會隨內容自動擴展或縮小。
2. 對於您新插入的註釋，必須重新啟用自動調整註解大小功能，才能調整所有新插入註解框的尺寸。

想免費試用此工具 30 天嗎？立即下載，並依照上述步驟操作！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多