將註解移至 MS Excel 中的新列

將註解移至 MS Excel 中的新列

我在表格中有一列,其中(幾乎)該列中的每個單元格都有一個註釋(紅色三角形),我想將所有註釋移到一個新列中。

我所擁有的例子:

第 1 欄
麻省理工學院(評論:MA)
哈佛大學(評論:MA)
耶魯大學(評論:CT)
紐約大學(無評論)

我想要什麼:

第 1 欄、第 2 欄
麻省理工學院,麻薩諸塞州
哈佛大學,麻薩諸塞州
耶魯大學,康乃狄克州紐約
大學,?

答案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是包含您想要取得的評論的儲存格

以下是如何使用它的範例:

在此輸入影像描述

相關內容