将注释移动到 MS Excel 中的新列

Question

我在表格中有一列，其中（几乎）该列中的每个单元格都有一个注释（红色三角形），我想将所有注释移动到新列中。

我所拥有的例子：

第 1 栏
麻省理工学院 (注释：MA)
哈佛大学 (注释：MA)
耶鲁大学 (注释：CT)
纽约大学 (无注释)

我想要的是：

1号栏，2号栏
麻省理工学院，马萨诸塞州，
哈佛大学，马萨诸塞州，
耶鲁大学，康涅狄格州，纽约
大学，？

Answer 1

我相信只有使用 VBA 才有可能。尝试 ff。用户定义函数：

Public Function GetComment(c As Range) As String
    If c.Comment Is Nothing Then
        GetComment = "?"
    Else
        GetComment = Replace(c.Comment.Text, c.Comment.Author & ":", "")
    End If
End Function

创建 UDF：

1. 按CTRL+ F11。
2. 粘贴上面的代码。
3. 关闭 VBA 编辑器。

注意：
如果您还想显示评论作者的姓名，请将第五行替换为：
GetComment = c.Comment.Text

使用该函数，在您想要放置注释的列中的单元格中输入 ff.，然后将其复制下来。

=GetComment(B1)

其中：
B1是包含您要获取的评论的单元格

以下是如何使用它的示例：