在excel中怎么把批注转为单元格内容

如图所示，我们想把批注中的内容放到单元格中，作为单元格内容进行操作。

最初级的方法就是选中批注，复制后，再选择单元格粘贴。

但是这种方法仅限于需要复制的批注较少的时候，当需要转换的较多或者较为零散时，该怎么办呢？可以用VBA的方法，按住ALT+F11，打开VBA

选择“插入”中的“模块”。

插入代码：Function pizhu(Rng As Range) pizhu = Rng.Comment.Text End Function E5 = pizhu(D5) 运行后就可以将批注提到E5，类似的将其他的复制运行。

另一种代码可以写： 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

运行代码后，批注也相应的复制到E5的单元格，依次复制代码即可实现