情形是这样:以前电脑中的表格,很多信息都记录在批注中,而且不是在特定的一行或者一列中,可以说到处都有,很分散。现在我需要经常在iPhone中查看这个表格,而iPhone的Office软件没有一个可以查看批注的,所以只能想到这个办法,把所有批注转化成单元格内容,求Office应用高手赐教,谢谢!
材料/工具:Excel2010
1、首先选择我们想要批量插入批注的单元格
2、然后点击右上角的智能工具箱,
3、在功能区找到单个处理,点击展开,
4、在下拉列表中找到插入指定批注,点击打开,
5、点击批注选项卡上方的折叠按钮,
6、选择想要做个批注的单元格区域
7、然后点击折叠按钮,然后点击确定,
8、最后我们就可以看到,成功的为所有的单元格插入了批注,
请问这个是把内容放在哪个单元格呢?我不希望新建行,但是放在左右临近的单元格是没问题的
追答在原单元格的内容后面加上 “批注:”几个字,然后再加上批注内容。最好做好表格备份。
原单元格内容 “批注:”批注内容
我不会写啊,完全不懂办公软件。能否帮忙写一下?
追答有批注的单元格有内容吗?
如果有批注要存放在哪个单元格(相邻的还是上下插入新行?)
能不能把表格式贴上
批注的单元格都是有内容的,如果可以的话,就放在原单元格,如果不能这样操作,就在右边插入一格也可以。表格格式见图,谢谢!
打开你的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