Excel批注：添加、显示/隐藏、修改、删除等高级操作

对于很多 Excel 用户来说，在日常工作中经常会用到注释。 本教程收集了 Excel 注释的综合知识。 有了本教程的帮助，在不同情况下创建、修改和删除评论对您来说将不再是问题。 此外，它还提供了一些高级操作，帮助您解决使用 Excel 注释时遇到的复杂问题。 让我们继续阅读本教程以了解有关 Excel 注释的更多详细信息。

---

1. Excel 中的注释是什么？

Excel 注释可用于添加有关文档特定部分的注释。 例如，您可以使用注释来解释单元格中的公式，使用注释来提醒自己或其他用户重要的事情，或者根据需要将注释用于其他原因。

Excel 注释有四个组成部分：指示器、注释框、用户名和注释内容。

如上图所示：

---

2. 给单元格添加注释

在使用 Excel 注释之前，您必须先了解如何在单元格中添加注释。 本节包括两个部分，它们不仅可以帮助您向一个单元格添加注释，还可以帮助您同时向多个单元格添加注释。

2.1 给单元格添加注释

Excel 提供了一个内置函数“插入评论”来帮助您轻松地向 Excel 中的单元格添加注释。

1. 选择要添加评论的单元格。

2。 点击 评论 > 新评论.

Tips:

3。 然后在所选单元格中添加注释，您只需在框中键入注释，然后单击任何其他单元格即可完成注释。

备注：默认情况下，Excel 注释标有 Microsoft Office 用户名。 你可以 更改用户名 如你所需。

2.2 为多个单元格添加注释

使用 Excel 内置 插入评论 功能，您每次只能向单元格添加评论。 本节提供了两种方法让您同时向多个单元格添加相同的注释。

2.2.1 使用特殊粘贴功能为多个单元格添加注释

您可以执行以下操作来应用 Excel 选择性粘贴 功能同时向多个单元格添加相同的评论。

1.首先，您需要在单元格中添加注释， 点击了解如何.

2. 选择带有注释的单元格，然后按 按Ctrl + C 键复制它。

3. 选择要具有相同注释的单元格范围。

Tips：按住 按Ctrl 键，可以一一选择多个不连续的单元格。

4。 点击 主页 > 酱 > 选择性粘贴.

或者，您可以右键单击任何选定的单元格，然后选择 选择性粘贴 > 选择性粘贴 从上下文菜单。

5.在开幕 选择性粘贴 对话框中，单击 评论 单选按钮，然后单击 OK.

然后您可以看到相同的评论已立即添加到选定的单元格中，如下所示。

2.2.2 用VBA给多个单元格添加注释

下面的 VBA 代码还可以帮助在 Excel 中轻松地将相同的注释批量添加到多个单元格中。

1. 打开要向单元格添加注释的工作表。

2。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

3.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块 然后将下面的 VBA 复制到代码窗口中。

VBA代码：批量向多个单元格添加注释

Sub InsertCommentsSelection()
'Updated by Extendoffice 20211018
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xText As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Count > 1 Then
        Set xRg = xRg.SpecialCells(xlCellTypeVisible)
    End If
    xRg.Select
    xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
    If xText = "" Then
        MsgBox "No comment added", vbInformation, "Kutools For Excel"
        Exit Sub
    End If
    For Each xRgEach In xRg
        With xRgEach
        .ClearComments
        .AddComment
        .Comment.Text Text:=xText
        End With
    Next xRgEach
End Sub

4。 按 F5 键来运行代码。

5.在弹出 Excel 的 Kutools 对话框中，选择要具有相同注释的单元格，然后单击 OK.

Tips：按住 按Ctrl 键，可以一一选择多个不连续的单元格。

6.在第二次开场 Excel 的 Kutools 对话框，输入评论内容，点击 OK.

然后将相同的注释同时添加到选定的单元格。 看截图：

备注：使用此 VBA 代码添加注释时，选择中的隐藏单元格（自动过滤或手动隐藏）将被忽略。

---

3. 显示或隐藏评论

默认情况下，对单元格进行评论后，单元格中仅显示评论指示符。 通常，您需要将光标悬停在单元格上以显示评论框。 本节分为四个部分来演示如何在 Excel 中显示或隐藏批注。

3.1 仅在选定单元格中显示或隐藏注释

这部分将向您展示如何在选定的单元格中显示或隐藏评论。

1. 选择要显示其注释的单元格。

2。 点击 评论 > 显示/隐藏评论.

然后评论将始终显示在此单元格上。

要隐藏评论，请选择此单元格并单击 评论 > 显示/隐藏评论.

3.2 批量显示或隐藏当前工作簿中的所有批注

如果要显示当前工作簿中的所有注释，内置 显示所有评论 功能可以帮您一个忙。

1。 点击 评论 > 显示所有评论。 看截图：

然后立即显示工作簿中的所有注释。

你可以点击 评论 > 显示所有评论 再次隐藏所有评论。

3.3 同时隐藏评论及其指示器

默认情况下，将注释添加到单元格后，指示器将保持显示，直到注释被删除。 本节将向您展示在 Excel 中同时隐藏注释及其指示器的两种方法。

3.3.1 使用 Excel 内置选项隐藏注释及其指示器

Excel 提供了一个内置选项来帮助您隐藏整个工作簿中的注释和指示器。

1. 在打开的 Excel 工作簿中，单击 文件 > 附加选项.

2.在 Excel选项 窗口中，单击 高级 在左窗格中，单击 没有评论或指标 中的单选按钮 显示器 部分，然后单击 OK 保存更改。

然后可以看到当前工作簿的所有工作表中隐藏了所有注释和相应的指示器。

备注：要显示评论指示器，您需要单击 文件 > 附加选项 进入 Excel选项 再次打开窗口，然后单击 指标 仅，并评论悬停 或者 评论和指标 您需要的单选按钮。

3.3.2 使用神奇的工具轻松隐藏评论及其指示器

使用上述方法，您需要来回进入 Excel选项 窗口以显示或隐藏评论指示符。 这里推荐 查看选项 的特点 Kutools for Excel 帮助您轻松显示或隐藏 Excel 工作簿中的注释和指示器。

1.安装后 Kutools for Excel，单击“ 库工具 > 显示隐藏 > 查看选项。 看截图：

2.在 查看选项 对话框中，单击 不包含 中的单选按钮 评论 部分，然后单击 OK.

然后所有注释及其指示符都隐藏在当前工作簿的所有工作表中。

备注：要再次显示评论指示器，您只需单击 库工具 > 重新运行 最后 效用 打开 查看选项 对话框，然后选择 仅评论指示器 or 评论和指标 如你所需。

3.4 选中单元格时总是显示注释

默认情况下，您需要将光标悬停在单元格上以显示其注释。 当光标离开单元格时，注释将消失。 本节将向您展示如何在使用 一律显示评论 实用程序 Kutools for Excel.

1。 点击 库工具 > 更多 > 始终显示评论.

从现在开始，在选择单元时，将显示其注释一直显示，直到激活另一个单元格。

---

4.修改Excel中的注释

给单元格添加注释后，可能需要更改内容以便及时更新，更改注释的外观以使其看起来更美观，或者出于其他目的修改注释。 在本节中，您将找到修改注释所需的内容。

4.1 修改评论中的文字

您可以使用以下方法更改评论或多个评论中的内容文本。

4.1.1 使用编辑评论功能更改评论中的文本

使用 Excel 中的内置功能“编辑注释”更改注释中的文本非常容易

1. 选择要更改其注释文本的单元格，然后单击 评论 > 编辑点评.

此外，您可以右键单击注释的单元格，然后单击 编辑点评 在上下文菜单中。

2. 然后弹出所选单元格的注释框，请根据需要更改文本。

更改文本后，单击任何其他单元格以完成注释。

4.1.2 批量查找和替换评论中的文本

使用编辑评论功能，您每次只能编辑一条评论。 如果有大量的评论需要修改，使用这个功能会浪费很多时间。

在本节中，我们为您提供两种在 Excel 中批量查找和替换多个注释中的文本的方法。

4.1.2.1 用VBA批量查找和替换所有工作表中注释中的文本

下面的 VBA 代码可以帮助查找和替换工作簿的所有工作表中的注释文本。 您可以执行以下操作来完成它。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块，然后将下面的 VBA 代码复制到代码窗口中。

VBA 代码：在所有工作表中查找和替换注释文本

Sub ReplaceComments()
Dim cmt As Comment
Dim wks As Worksheet
Dim sFind As String
Dim sReplace As String
Dim sCmt As String
sFind = "remark"
sReplace = "replace with new"
For Each wks In ActiveWorkbook.Worksheets
For Each cmt In wks.Comments
sCmt = cmt.Text
If InStr(sCmt, sFind) <> 0 Then
sCmt = Application.WorksheetFunction. _
Substitute(sCmt, sFind, sReplace)
cmt.Text Text:=sCmt
End If
Next
Next
Set wks = Nothing
Set cmt = Nothing
End Sub

: 在这种情况下，

您需要根据自己的需要更改它们。

3。 按 F5 键来运行代码。

然后将当前工作簿所有工作表中指定的注释文本批量替换为新文本。

4.1.2.2 一个方便的工具，可在活动或所有工作表中轻松查找和替换评论中的文本

随着 查找/替换评论文本 的特点 Kutools for Excel，您不仅可以在活动工作表中，还可以在工作簿的所有工作表中轻松查找注释文本并将其替换为指定的注释文本。

1。 点击 库工具 > 更多 > 查找/替换评论文本.

2.在 查找/替换评论文本 对话框，需要进行如下配置。

3.然后 查找/替换评论文本 弹出对话框告诉你修改了多少条评论，点击 OK.

4.然后关闭 查找/替换评论文本 对话框。

4.2 更改评论字体

4.2.1 使用格式注释功能更改注释中的字体

您可以按照以下步骤轻松更改单个评论的格式，例如字体、字体大小、字体颜色、字体样式。

1. 选择一个注释的单元格，然后单击 评论 > 编辑点评.

2. 现在评论框是可编辑的。 您需要选择备注文本（包括您需要的用户名），右键单击并选择 格式注释 从上下文菜单。

3.在 格式注释 对话框中，根据需要指定字体样式、大小、颜色或其他格式，然后单击 OK 保存更改。

然后您可以看到所选评论中的字体已更改，如下面的屏幕截图所示。

4.2.2 用一个神奇的工具改变所有评论的字体

更改注释中的字体后，本节将向您展示如何将这种新字体格式应用于活动工作表中的所有其他注释或工作簿的所有工作表中 格式注释 的特点 Kutools for Excel.

1。 点击 库工具 > 更多 > 格式注释。 看截图：

2.在 格式注释 对话框，您需要：

备注：检查 强制非粗体格式 框根据您的需要。

2.在弹出窗口中 格式注释 对话框中，选择要将其批注格式应用于其他批注的单元格，然后单击 OK.

3.然后会弹出一个对话框提醒您更改评论的总数，点击 OK.

4.然后关闭 格式注释 对话框。

您可以看到活动工作表或所有工作表中所有其他评论的格式已更改，具体取决于所选评论的格式。

4.3 改变评论形状

默认情况下，注释形状是矩形。 如果您想更改注释形状以使其在 Excel 中看起来更美观，本节中的两种方法可以帮到您。

4.3.1 使用更改形状命令更改注释的形状

您可以应用 改变形状 在 Excel 中更改注释形状的功能。

1. 在 Excel 功能区中，单击 自定义快速访问工具栏 > 更多命令。 看截图：

2.在 Excel选项 对话框，需要做如下设置。

改变形状 命令现在添加到功能区，如下面的屏幕截图所示。

3. 选择一个注释的单元格，然后单击 评论 > 编辑点评.

4. 点击显示评论的边框，然后到功能区点击 改变形状.

备注：本 改变形状 在您单击评论的边框之前，命令会变灰且不可单击。

5. 然后单击将用作所选注释的新形状的形状。 在这种情况下，我单击六边形。

现在所选单元格的注释形状已更改为指定的形状，如下所示。

4.3.2 用神奇的工具轻松改变评论形状

在这里推荐 更改评论形状 的特点 Kutools for Excel 帮助您轻松更改 Excel 中的批注形状。

1。 点击 库工具 > 更多 > 更改评论形状.

2.在 更改评论形状 对话框中，当前工作簿中的所有注释都列在 评论清单 框，您需要执行以下操作。

:

然后注释形状更改为您指定的形状。

4.4 调整评论大小以适应内容

如下图所示，有些评论框太小，无法显示所有评论，而有些评论太短，无法填满评论框。 在这种情况下，您可能需要调整评论框的大小以适合其内容。 本节中的方法将帮助您解决此问题。

4.4.1 手动调整评论边框以适应内容

调整评论框大小最常见的方法是手动拖动评论框的边框，直到达到您需要的大小。

1.选择一个注释的单元格，点击 评论 > 编辑点评 使评论可编辑。

2. 点击评论框的边框，然后将光标移动到评论框的任意边框上，当它变成 ，拖动边框直到达到您的大小。 请参阅下面的演示。

重复上述步骤 1-2 以调整其他所需注释的大小。

4.4.2 使用一个很棒的工具自动调整评论大小以适应其内容

如果很多评论需要调整大小，应用上述方法将是耗时的。 这里强烈推荐 自动调整评论 的特点 Kutools for Excel. 使用此功能，您只需单击几下即可轻松调整活动工作表或所有工作表中评论的大小以适应其内容。

1。 点击 库工具 > 更多 > 自动调整评论 > 活动表 or 所有工作表 如你所需。

然后活动工作表或所有工作表中的注释会自动调整大小以适合其内容。

4.5 从评论中删除用户名

创建评论时，会自动添加 Microsoft 用户名，您可以使用以下方法删除用户名。

4.5.1 手动删除指定评论中的用户名

您可以从指定的评论中手动删除用户名。

1. 选择要删除其用户名的注释单元格。

2。 点击 评论 > 编辑点评.

3. 在评论框中选择用户名，然后按 Backspace键 键将其删除。 看截图：

4.5.2 使用神奇的工具轻松批量删除评论中的用户名

如果要从一个活动表或所有表中的大量评论中删除用户名，上述传统方法既费时又烦人。 这里介绍一下 删除/添加评论中的用户名 的特点 Kutools for Excel 帮助您轻松地从评论中批量删除用户名。

1。 点击 库工具 > 更多 > 删除/添加评论中的用户名.

2.在 在评论中删除/添加用户名 对话框，您需要配置如下。

3.然后会弹出一个对话框告诉你修改了多少条评论，点击 OK，然后关闭主 删除/添加评论中的用户名 对话框。

现在，用户名将从活动工作表或您指定的所有工作表中的注释中删除。

4.6 修改评论用户名

上一节演示了从评论中删除用户名的方法，本节将向您展示如何在 Excel 中更改评论的用户名。

4.6.1 在 Excel 中更改默认用户名

插入评论时，默认生成用户名。 由于用户名是用于插入它的 Excel 应用程序的默认 Microsoft Office 用户名，您可以按照以下步骤更改它。

1。 点击 文件 > 附加选项.

2.在 Excel选项 对话框，留在 总类 窗格中，更改用户名 用户名 下的文本框 个性化您的Microsoft Office副本 部分，然后单击 OK 保存更改。

从现在开始，在 Excel 中创建新注释时，将自动生成新用户名。

备注：此更改将在所有 Microsoft Office 组件中生效。

4.6.2 使用 VBA 更改当前工作簿中现有注释的用户名

上述方法更改了 Microsoft Office 中的默认用户名。 对于某些 Excel 用户，他们只需要更改现有评论的用户名即可。 本节中的 VBA 代码将帮助您解决问题。

1. 打开要更改现有注释的用户名的工作簿，然后按 其他 + F11 键。

2.在开幕 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块，然后将下面的 VBA 复制到代码窗口中。

VBA 代码：更改当前工作簿中现有注释的用户名

Sub ChangeCommentName()
'Updateby20211008
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
xTitleId = "KutoolsforExcel"
oldName = InputBox("Old Name", xTitleId, Application.UserName)
newName = InputBox("New Name", xTitleId, "")
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        xComment.Text (Replace(xComment.Text, oldName, newName))
    Next
Next
End Sub

3。 按 F5 键来运行代码。

4.然后 KutoolsForexcel. 弹出对话框，在文本框中列出当前评论的默认用户名，点击 OK 继续前进。

5.然后另一个 KutoolsForexcel. 弹出对话框，需要在文本框中输入新的用户名，然后点击 OK.

然后，当前工作簿的所有注释中的用户名将替换为新的用户名。

4.6.3 一个方便的工具来更改现有评论的用户名

在上面的步骤中，您已经学会了使用 从评论中删除用户名 在选项 删除/添加评论中的用户名 从活动工作表或工作簿中的所有工作表中的注释中删除用户名的功能。 这里建议你结合另一个选项（在评论中添加用户名) 在同一功能中轻松更改现有评论的用户名。 请按以下步骤操作。

1。 点击 库工具 > 更多 > 在评论中删除/添加用户名.

2.在 在评论中删除/添加用户名 对话框，需要进行如下设置。

使用此功能，首先您需要从评论中删除所有用户名。

现在所有评论中的用户名都已更改。

---

5. 将注释复制到 Excel 中的其他单元格

5.1 使用粘贴特殊功能将注释复制到其他单元格

您可以应用 Excel 内置功能“选择性粘贴”将注释从一个单元格复制到另一个单元格。

1. 选择一个注释的单元格，按 按Ctrl+ C 键复制它。

2. 选择一个你想要有相同评论的单元格，右键单击它，然后选择 选择性粘贴 从上下文菜单中。 看截图：

Tips：选择目标单元格后，您可以按 按Ctrl + 其他 + V 打开的快捷方式 选择性粘贴 对话框。

3.在开幕 选择性粘贴 对话框中，单击 评论 中的单选按钮 酱 分组，然后单击 OK.

然后将复制的注释粘贴到所选单元格。

备注：如果要将多个注释从一个范围复制到新范围，则需要先选择该范围，然后按照上述步骤操作。

5.2 使用神奇的工具轻松将注释复制到其他单元格

上述方法一次只能复制一个范围内的注释。 如果需要复制多个不连续范围内的注释，怎么办？ 这里我们推荐 Kutools for Excel“ 复制范围 功能可帮助您轻松处理此问题。

1.按住 按Ctrl 键来一一选择不连续的范围。

2。 点击 库工具 > 复制范围.

3.在开幕 复制多个范围 对话框中，选择 评论 单选按钮，然后单击 OK.

备注: 可以选择启用 包括行高, 包括列宽 和 已经隐藏的行和列不会被复制 根据您的需要选择。

4.然后另一个 复制多个范围 弹出对话框，请选择粘贴复制的注释的位置（只需要一个单元格），然后点击 OK.

然后只将选择中的注释粘贴到目标单元格。

---

6.在Excel的评论中插入图片

假设您计划向客户发送产品报价方案。 为了使方案更加生动，您决定在每个产品单元格的评论框中插入产品图像。 当客户将光标悬停在带有评论的单元格上时，相应的图像将显示在评论框中。 本节将向您展示如何在 Excel 注释中插入图片。

在 Excel 中，您可以应用格式批注功能将图片插入批注中。 请按以下步骤操作。

1.首先，您需要在单元格中插入注释：选中该单元格，然后单击 评论 > 新评论.

2. 现在在所选单元格中插入了注释，从注释框中删除用户名。

3. 单击显示注释的边框，使注释框被选中。

4. 右键单击​​评论框并选择 格式注释 在上下文菜单中。

5.在 格式注释 对话框，您需要：

6.在开幕 填充效果 对话框，转到 图片 选项卡，然后单击 选择图片 按钮。

7.然后在评论框中找到并选择一张你希望它显示的图片.v

8.打开图片后，显示在 填充效果 对话框，单击 OK 关闭此对话框。

9。 点击 OK 当它返回到 格式注释 对话框。

现在指定的图片已添加到所选单元格的注释框中。

10.重复以上步骤，在其他评论中插入图片。

---

7. 将单元格值转换为注释，反之亦然

要将单元格值转换为注释，反之亦然，您可以通过复制粘贴手动执行此操作。 本节提供了有效的方法来帮助您摆脱耗时的操作。

7.1 将单元格值转换为注释

您可以应用以下方法之一将单元格值转换为 Excel 中的注释。

7.1.1 使用 VBA 将单元格值转换为注释

运行以下 VBA 代码有助于将单元格值自动转换为工作表中的注释。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块，然后将下面的 VBA 复制到代码窗口中。

VBA 代码：将单元格值转换为注释

Sub CellToComment()
'Updateby20211011
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.NoteText Text:=Rng.Value
Next
End Sub

3。 按 F5 键来运行代码。

4.在弹出 Kutools for Excel 对话框，您需要选择要将值转换为注释的单元格，然后单击 OK.

然后将单元格值转换为注释，如下面的屏幕截图所示。

7.1.2 使用神奇的工具将单元格值转换为注释

如果您是不擅长处理 VBA 代码的 Excel 新手，我们建议您使用 转换评论和单元格 的特点 Kutools for Excel 只需单击几下，即可帮助您轻松地将单元格值转换为注释。

1。 点击 库工具 > 更多 > 转换评论和单元格。 看截图：

2.在开幕 转换评论和单元格 对话框，您需要配置如下。

然后单元格值立即转换为注释，如下面的屏幕截图所示。

7.2 将注释转换为单元格值

除了将单元格内容转换为注释之外，您可能还需要将注释转换为单元格内容。 本节将向您展示两种处理此问题的方法。

7.2.1 使用 VBA 将注释转换为单元格值

应用以下 VBA 代码可以帮助自动将注释转换为单元格内容。 请按以下步骤操作。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块. 然后将下面的 VBA 复制到代码窗口中。

VBA 代码：在 Excel 中将注释转换为单元格内容

Sub CommentToCell()
'Updated by Extendoffice 20211011
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Kutools for Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Rng.NoteText
Next
End Sub

3。 按 F5 键来运行代码。 在弹出 Kutools for Excel 对话框中，选择包含要转换为单元格内容的注释的单元格，然后单击 OK.

现在评论立即转换为单元格内容，如下面的屏幕截图所示。

7.2.2 使用神奇的工具将注释转换为单元格值

应用 Kutools for Excel“ 转换评论和单元格 功能将是在 Excel 中将注释转换为单元格内容的最有效方法。

1. 拥有后 Kutools for Excel 已安装，点击 库工具 > 更多 > 转换评论和单元格.

2.在开幕 转换评论和单元格 对话框，您需要：

现在注释会立即转换为单元格内容。

---

8.从单元格中提取注释文本

假设您有一个很大的工作簿，其中许多单元格注释散布在工作表中，现在您想出于某种目的将这些注释放在一个列表中，本节中的方法可以帮助您。

8.1 使用自定义函数提取注释文本

您可以应用以下用户定义函数来提取特定单元格范围内的注释文本。

1。 按 其他 + F11 键。

2.然后 Microsoft Visual Basic应用程序 弹出窗口，单击 插页 > 模块. 然后将下面的 VBA 代码复制到代码窗口中。

VBA 代码：提取注释文本

Function getComment(xCell As Range) As String
'UpdatebyExtendoffice20211011
On Error Resume Next
getComment = xCell.Comment.Text
End Function

3。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

4.选择一个空白单元格，在其中输入以下公式，然后按 输入 键获取评论内容。

Tips：如果需要提取同一列中的多个评论，则需要选择第一个结果单元格，然后将其自动填充句柄向下拖动以获取其他结果。 看截图：

=get评论(B3)

备注: 提取同一列或同一行的注释，这个用户定义的函数可以帮助完成。 但是，如果您想提取分散在工作表中的注释，我们建议使用以下更方便的方法。

8.2 使用神奇的工具获取所有评论的列表

创建评论列表 的特点 Kutools for Excel 帮助您根据需要轻松获取工作表或所有工作表中所有注释的列表。

1。 点击 库工具 > 更多 > 创建评论列表.

2.在 创建评论列表 对话框，需要进行如下配置。

然后您可以看到所有评论都被提取出来，如下所示。

---

9.重置Excel中的所有注释位置

有时，您可能会将评论框拖离单元格很远，最终发现将它们恢复到原始位置并不是那么简单。 本节提供了两种方法来帮助您重置 Excel 中的所有注释位置。

9.1 用 VBA 重置所有注释位置

您可以应用以下 VBA 代码来保留活动工作表中的所有注释位置。

1. 激活要重置所有注释位置的工作表，按 其他 + F11 键。

2.在开幕 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块，然后将下面的 VBA 复制到 代码 窗口。

VBA 代码：重置活动工作表中的所有注释位置

Sub ResetComments()
'Update 20211012
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3。 按 F5 键运行代码，则所有注释位置恢复到原来的位置。 看截图：

9.2 使用方便的工具轻松重置所有评论位置

这里推荐 Kutools for Excel“ 重置评论位置 功能可帮助您重置活动工作表或所有工作表中的所有评论位置，只需单击几下。

1。 点击 库工具 > 更多 > 重置评论位置 > 活动表 or 所有工作表 根据你的需求。

然后所有评论位置立即恢复到原来的位置。

---

10.删除Excel中的注释

本节介绍如何删除 Excel 中的注释。

10.1 删除单元格中的注释

使用内置功能删除单元格中的注释非常容易 删除评论 功能。

1. 选择要删除注释的单元格。

2。 点击 评论 > 删除.

Tips：您可以右键单击单元格并选择 删除评论 在上下文菜单中。

然后删除所选单元格中的注释。

10.2 删除选区或整个工作表中的所有评论

要删除选区或整个工作表中的所有评论，您可以执行以下操作。

1. 选择要删除注释的一个或多个范围。

备注： 按 按Ctrl+ A 键或单击左上角按钮 的工作表操作区选择整个工作表。

2.然后，单击 评论 > 删除，或右键单击任何单元格并选择 删除评论 在上下文菜单中。

然后在选择或整个工作表中删除注释。

10.3 删除整个工作簿中的所有注释

要删除整个工作簿中的所有注释，通常可以使用上述方法对工作表进行一张一张的处理。 这是一个方便的代码，可帮助您快速从整个工作簿中批量删除所有注释。

1. 打开要删除所有批注的工作簿，按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 查看 > 即时 窗口，然后将下面的 VBA 复制到立即窗口中。

VBA 代码：删除整个工作簿中的所有注释

For each ws in Worksheets: ws.cells.ClearComments: Next ws

3. 确保光标显示在立即窗口中，然后按 输入.

现在同时删除当前工作簿中的所有注释。

我们希望本教程能够帮助您轻松解决您遇到的任何评论问题，提高您的工作效率。