作者:乔山办公网日期:
返回目录:excel表格制作
图都不百会贴,贴图贴清楚行号,度 列号,
选中需要处理的单元格( 选中有批注的几个单元格)
右键 点专 工作表名-查看代码属,如下代码复制进去,F5 运行:
Sub pizhu()
For Each Rng In Selection
If Not Rng.Comment Is Nothing Then
Rng.Offset(0, 1) = Rng.Comment.Text
End If
Next
End Sub
利用辅助列得到目标数据,然后将数据在复制到B列中即可。具体操作请参照以下步骤百,演示软件版本为excel2007。
1、首先在电脑上新建一个excel文件,然后输入目标数据,如图所示。
2、然后利用C列做辅助列,在C1单元格中输入命令度“=A1&B1”。版
3、然后选中C1表格右下角出现的十字图标,向下拉,让剩余表格执行相同的命令。
4、然后对C列中的内容执行复制操作,如图所示。
5、然后将权刚刚复制的内容粘贴至B列中,如图所示。
6、然后将粘贴选项设置为“只有值”,才能正常显示,最后将C列内容删除即可。完成以上设置后,即可完成题目要求。
打开EXCEL,按ALT+F11键,双击工作表 出现VBA编辑器zd,参考输入以下内容
Sub test()
Dim i%
For i = 1 To 100
Range("b" & i) = Range("a" & i).Comment.Text
Next
End Sub
其中1 To 100 是假设批注内容在 1-100 行写的,根据你的实际需要调整
Range("a" & i) 中的回 a 表示批注在A列,根据实际情况调整
Range("b" & i) 中的 b 表示结果输出在B列,根据实际需要调整(不要写在有其他数据的位置)答
然后 按 F5 键运行后就得到批注内容,再复制出来即可。
在A列插入一度空列,这样带批注的A列数据直接移到B列了。
如果A列需要数据可从B列复制过来
不好意思,没看清你要求。如果要知把批注内容,需要用宏来实现,具体操作:
创建宏:名称随便,比如“PZ”,然后在代码窗口录入道以下代码:
Function PZ(T As Range)
Application.Volatile True
PZ = T.Comment.Text
End Function
然后保存版好。(如果是2007以上版本的EXCEL,若文件以前未允许宏运行,可能会提示你重新保存为启用宏的文件,注意选择保存成*.xlsm类型)
然后在B列输入相应公式:比如B1:=PZ(A1),即可把A1单元格批注内容复制显示在B1单元格中。整列的话下拉即可。
你难道不是想如下图这样吗权?