如何只复制Excel中的批注到另一个单元格中

在电子表格中，批注对于添加上下文和解释至关重要。您可以使用它们来传达在单元格中无法直接显示的重要信息。然而，有时候您可能只想从一些选定的单元格中提取和转移批注，而不是附带的单元格值。在本文中，我们将看到一个有条理的流程，成功完成这项工作。

在本教程结束时，您将完全掌握如何高效地从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

如何只复制Excel中的批注到另一个单元格中？