Excel--批量将批注放入单元格

将带有批注的A列复制，选择性粘贴--批注在B列

选择B列，alt+F11, 运行

Sub test()
For Each c In ActiveSheet.Comments
With c
.Parent.Value = .Text
'.Delete
End With
Next
End Sub

选择B列，替换：name: >> 空（选择A列删除所有批注）

替换   换行： CTRL+J >> 空（在替换中，若不想要换行符，需要用delete，而非backspace）