如何自動調整注釋框的大小以適合Excel中的內容？

網友投稿 700 2025-03-31

如何自動調整注釋框的大小以適合Excel中的內容？

當您將注釋插入單元格時，注釋框的大小是默認大小。如果您在其中輸入很多內容，則某些內容將不會直接可見。是否可以自動使注釋框的大小適合其內容？

自動調整注釋框大小以使其適合工作表中的內容

自動調整注釋框大小以使其內容適合一系列單元格
借助令人驚嘆的工具輕松調整注釋框的大小，使其適合活動工作表或所有工作表中的內容 自動調整注釋框大小以使其適合工作表中的內容

在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

Copy

3.然后按 F5 鍵以運行此代碼，并且活動工作表中的所有注釋框都已調整大小以適合其內容，如以下屏幕截圖所示：

Tips:：此代碼僅在當前工作表中起作用，并且無法自動調整添加的新注釋框的大小。

一鍵快速將注釋框的大小自動調整為適合Excel中的內容：

自動評論 實用程序 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

Copy

3.然后按 F5 鍵以執行此代碼，然后會出現一個提示框，提醒您選擇要調整注釋框大小的單元格范圍，請參見屏幕截圖：

4.然后單擊 OK，您選擇的單元格注釋框已自動適應注釋內容。

Tips:：此代碼無法自動調整您添加的新注釋框的大小。

自動調整注釋框的大小以使其內容適合活動工作表或所有工作表

你可以試試 自動調整評論 實用程序 Kutools for Excel 自動調整大小

活動工作表中的注釋框或Excel中的所有工作表。請執行以下操作。

申請前 Kutools for Excel請 首先下載并安裝.

1.要自動調整注釋框的大小以使其適合活動工作表中的內容，請單擊 Kutools > 更多 > 自動調整評論 > 活動表.

如果要自動調整整個工作簿中所有注釋框的大小，請單擊 Kutools > 更多 > 自動調整評論 > 所有工作表。看截圖：

然后，所有評論框都會自動調整大小以適合其內容。看截圖：

1.自動調整注釋框的大小后，再次編輯注釋時，注釋框將隨內容自動擴展或縮小。 2.對于您插入的新注釋，您需要再次啟用此AutoFit注釋實用程序以調整所有新插入的注釋框的大小。

如果您想免費試用（30-day) 這個實用程序， 請點擊下載，然后按照上述步驟進行操作。

輕松自動調整注釋框大小以適合其內容 相關文章： 如何在Excel中更改注釋框的形狀？如何更改Excel單元格中的所有注釋格式？如何在Excel中列出對新工作表或工作簿的所有注釋？如何在Excel的注釋中插入圖片或圖像？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？利用的力量 Kutools for Excel - 您終極的節省時間的工具。簡化復雜的任務并像專業人士一樣瀏覽數據。以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel

??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。

?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！