你把这个代码复制过去,按你的实际修改下,sheet名称,运行一下宏就可以了 Sub ExtractCom() j = Sheets(1).Comments.Count For I = 1 To j Sheets(1).Cells(I, 1) = Sheets(1).Comments(I).Text Next End Sub

一、用自定义名称的方法:=GET.OBJECT(12,＂备注 ＂&ROW()) 操作:1.任选一个单元格-->插入--->名称-->定义 2.在名称称输入AA(任意名称) 3.在引用位置上写入=GET.OBJECT(12,＂备注 ＂&ROW()) 4.点添加 5.在B1单元格里输入=AA 二、补充:自定义函数解法 转自LangqueS版主:Function 批注(a As Range) Application.Volatile True 批注 = a.Comment.Text End Function 复制公式或代码然后输入公式=批注(A1)可取出A1单元格的批注.

1、先看要复制的备注内容有多少2、选中要放单元格的位置3、把选中的单元格合并4、把备注里的东西剪切到已合并的单元格中就OK了

简单方法:在视图中选择显示批注,然后在“页面设置”中,“工作表”---“打印”---“批注”选“工作表末尾”.打印预览,查看批注的打印是在第几页,在打印窗口选.

Sub ExtractCom()j = Sheets(1).Comments.CountFor I = 1 To jFor tt = 3 To [n65536].End(xlUp).RowIf Cells(tt, 14) ＂＂ Then _Sheets(1).Cells(tt, 1) = Sheets(1).Comments(I).TextNextNextEnd Sub

复制-》选择性粘贴-》粘贴选批注-》确定.然后删除原来的单元格.

兄弟,做个自定义函数.Public Function Pz(x As Range)Pz = x.Cells.Comment.TextEnd Function然后,在EXCEL中输入=Pz(A1) 就返回A1的批注内容了,当然其它单元格也可以,任何的,只要不是它本身如果用GET.CELL宏表函数也可以,只是用起来比较麻烦我觉得.

复制批注的话,在有批注的单元格点右键选择复制,在要复制批注的单元格右击选择＂选择性粘贴-----批注＂即可.

选定源单元格==》复制==》选定目标单元格==》鼠标右键==》选择性粘贴==》勾选 “批注”即可.