可以使用VBA进行引用,如下代码引用的是A1单元格的批注内容:
cells(1,1).comment.text
也可编辑利用如下公式引用任意单元格(myrange为地址)的批注内容:
Function Comment(myRange As Range)
If myRange.Comment Is Nothing Then
Comment = "无批注"
Else
Comment = myRange.Comment.Text
End If
End Function
可以借助vba
按住ALT,依次按F11,I,M
粘贴代码后按F5运行
Sub 批注转单元格()
On Error Resume Next
For r = 1 To 100
Cells(r, 2) = Cells(r, 1).Comment.Text '将A列的批注内容写入对应行的B列,数字2,1分别对应B,A列的列号,根据实际修改
Next
End Sub