如何在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

3. 然后按F5键运行此代码，当前工作表中的所有批注框都会调整大小以适应其内容，如下图所示：

提示：此代码仅适用于当前工作表，无法自动调整新添加的批注框大小。

自动调整一批单元格的批注框大小以适应其内容

如果只需要自动调整一部分单元格批注框的大小，可以使用以下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键执行此代码，将弹出一个提示框，提醒您选择要调整批注框大小的单元格区域，请参见截图：

4. 然后点击确定，所选单元格的批注框已自动调整为适合批注内容的大小。

提示：此代码无法自动调整新添加的批注框大小。

自动调整当前工作表或所有工作表中的批注框大小以适应其内容

您可以尝试使用Kutools for Excel的“自动调整批注”功能，自动调整当前工作表或整个工作簿中所有批注框的大小。请按照以下步骤操作。

1. 要自动调整当前工作表中批注框的大小以适应其内容，请点击Kutools > 更多 > 自动调整批注 > 当前工作表。

如果要自动调整整个工作簿中所有批注框的大小，请点击Kutools > 更多 > 自动调整批注 > 全部工作表。请参见截图：

然后，所有批注框都会自动调整大小以适应其内容。请参见截图：

注意：

• 1. 自动调整批注框大小后，再次编辑批注时，批注框会随着内容自动扩展或缩小。
• 2. 对于新插入的批注，您需要再次启用此“自动调整批注”功能，以调整所有新插入的批注框大小。

相关文章：

• 如何在Excel中更改批注框的形状？
• 如何在Excel中更改所有单元格中的批注格式？
• 如何将所有批注列出到新的工作表或工作簿中？
• 如何在Excel中插入图片或图像到批注中？