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

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的单元格，依次复制代码即可实现