Question

如何把Excel中的批注，批量转化成单元格内容？

情形是这样：以前电脑中的表格，很多信息都记录在批注中，而且不是在特定的一行或者一列中，可以说到处都有，很分散。现在我需要经常在iPhone中查看这个表格，而iPhone的Office软件没有一个可以查看批注的，所以只能想到这个办法，把所有批注转化成单元格内容，求Office应用高手赐教，谢谢！

Answer 1

材料/工具：Excel2010

1、首先选择我们想要批量插入批注的单元格

2、然后点击右上角的智能工具箱，

3、在功能区找到单个处理，点击展开，

4、在下拉列表中找到插入指定批注，点击打开，

5、点击批注选项卡上方的折叠按钮，

6、选择想要做个批注的单元格区域

7、然后点击折叠按钮，然后点击确定，

8、最后我们就可以看到，成功的为所有的单元格插入了批注，

Answer 2

1)选择[来源单元格][右键][插入批注]<以下请键入[自定批注内容]>
2)选择[来源单元格][右键][复制]
3)选择[目标单元格(可以复选多格)][右键][选择性黏贴][选择性黏贴]
<于弹出的[选择性黏贴]视窗中选取[批注]>[确定]
以上为 EXCEL 2010 的做法
依其操作，可以一次像多个目标贴上同一批注的内容。

Answer 3

随便找个地方放，运行下

Sub 批注()
Dim C As Comment
For i = 1 To Worksheets.Count
For Each C In Worksheets(i).Comments
C.Parent.Value = C.Parent.Value & "批注：" & C.Text
Next
Next
End Sub

追问

请问这个是把内容放在哪个单元格呢？我不希望新建行，但是放在左右临近的单元格是没问题的

追答

在原单元格的内容后面加上 “批注：”几个字，然后再加上批注内容。最好做好表格备份。

原单元格内容 “批注：”批注内容

Answer 4

下运行，很容易找到的地方

注释（）
昏暗的下评论
对于i = 1，Worksheets.Count
工作表中的每个C（我）。评论
C.Parent.Value C.Parent.Value“代言：”C.Text
下一页

END SUB

Answer 5

用VBA写，很容易：

追问

我不会写啊，完全不懂办公软件。能否帮忙写一下？

追答

有批注的单元格有内容吗？
如果有批注要存放在哪个单元格（相邻的还是上下插入新行？）
能不能把表格式贴上

追问

批注的单元格都是有内容的，如果可以的话，就放在原单元格，如果不能这样操作，就在右边插入一格也可以。表格格式见图，谢谢！

追答

打开你的excel文件，点菜单：工具→宏→Visual Basic 编辑器

进入后点左边列表中的sheet1（sheet1）;在右边窗口贴入如下代码，鼠标在代码中间任意行点击一下（也就是移动光标在代码中），按F5（或点击工具栏中的绿色三角形），关闭编辑窗口，返回搞定！！！我把标注加在原内容之后，中间插入一个冒号；

每按一次F5，单元格会多加一次批注，所以自能运行于此！！最好先备份一份）

（为简化代码，里面的r和c后面的数根据你的表修改，只能大不能小）

 

 

Sub 批注转换()

  r = 200  '数据总行数,这里设定为200 自己修改

  c = 10   '数据区域列数 自己修改

 For i = 1 To r

 For j = 1 To c

    If Not (Cells(i, j).Comment Is Nothing) Then

       Cells(i, j) =Cells(i, j).Text & ":" & Cells(i, j).Comment.Text

   End If

 Next j

Next i

End Sub