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 Thenran.Offset(, 1) = Replace(Mid(ran.Comment.Text, 4, Len(ran.Comment.Text)), Chr(10), " ")End IfNextEnd Sub
7、运行代码后，批注也相应的复制到E5的单元格，依次复制代码即可实现
