如何在 Excel 中仅将单元格中的注释复制到另一个单元格?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/2 11:56:17

在电子表格中，注释对于添加上下文和说明至关重要。您可以使用它们来传达可能无法直接放入单元格的关键信息。但有时，您可能只想从几个选定的单元格中提取注释并将其复制到其他位置，而不是将注释中的单元格值复制到其他位置。在本文中，我们将介绍一个成功完成这项工作的系统化流程。

完成本教程后，您将掌握如何高效地从 Excel 文件中提取和复制注释，从而节省时间和精力。让我们开始学习这些方法，让您轻松完成注释提取任务。

仅将单元格中的注释复制到另一个单元格

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来了解如何在 Excel 中将注释从一个单元格复制到另一个单元格。

步骤 1

假设您有一个包含注释的 Excel 工作表。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 >"查看代码"。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 >"模块">"复制"。

代码

Sub CopyComments()
Dim CopyRng As Range, PasteRng As Range
xTitleId = "Only Copy Comments"
Set CopyRng = Application.Selection
Set CopyRng = Application.InputBox("Ranges to be copied :", xTitleId, CopyRng.Address, Type:=8)
Set PasteRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
CopyRng.Copy
PasteRng.Parent.Activate
PasteRng.PasteSpecial xlPasteComments
Application.CutCopyMode = False
End Sub