'鼠标在操作的工作表标签例如sheet上右键 --“查看代码”,调出VBA窗口,插入一个模块,把下面代码复制进去 Sub 转为批注() On Error Resume Next Set s = Range("A1:A20") '读取批注的范围 m = 1 For Each t In s 't.Value = t.Comment.Text 'Cells(m, 2).AddComment.Text = t.Text Cells(m, 2).Comment.Text Text:=t.Value m = m + 1 Next End Sub '回到EXCEL窗口,按“工具-宏-宏”,或直接按快捷键AlT+F8,在对话框选“转为批注”宏执行即可。 结果在B列产生批注本回答被网友采纳