1、如图所示，散激我们想把批注中的内容放到单之塑元格中，作为单元格内容进行操作。
2、最初级的方法就是选中批注，复制后，再选择单元格粘贴。
3、但是这种方法仅限于需要复制的批注较少的时候扬掩愁，当需要转换的较多或者较为零散时，该怎么办呢？可以用VBA的方法，按住ALT+F11，打开VBA
4、选择“插入”中的“模块”。
5、插入代码：Function pizhu(Rng As Range)
pizhu = Rng.Comment.Text
End Function
E5 = pizhu(D5)
运行后就可以将批注提到E5，类似的将其他的复制运行。
6、另一种代码可以写：
Sub tiqu()
For Each ran In Range("D5:D" & Cells(Rows.Count, 3).End(xlUp).Row)
If Not ran.Comment Is Nothing Then
ran.Offset(, 1) = Replace(Mid(ran.Comment.Text, 4, Len(ran.Comment.Text)), Chr(10), " ")
End If
Next
End Sub
7、运行代码后，批注也相应的复制到E5的单元格，依次复制代码即可实现
