VBA
使用
VBA编辑器，打开Alt+F11，在其中插入一个模块。在模块中复制以下代码：Sub CommentCopy()Dim rng As Range, str As StringFor Each rng In SelectionIf Not rng.Comment Is Nothing Thenstr = str & rng.Comment.Text & Chr(10)End IfNextA1 = strEnd Sub这段代码可以在选中单元格范围之后运行，将范围内批注内容显示在A1单元格。首先，我们需要打开VBE编辑器，在其中插入一个模块。然后，在模块中定义两个变量：rng和str。rng是用于保存所选单元格范围的变量，而str则用于存储所有批注文本。在代码中使用For Each循环遍历所选单元格范围。对于每个单元格，判断是否存在注释。如果存在，则将该注释文本拼接到str变量中，使用 Chr(10)来换行。最后，将存储了所有批注文本的str变量赋值给A1单元格即可。通过以上操作，我们可以一次性复制多个单元格上的批注内容，并将它们显示在同一行。这是一个方便实用的功能，适用于需要快速复制和查看大量批注信息的情况下。
