现在有这样一个表格,里面的单元格都有对应的批注。
现在就要将批注提取出来,然后放到B列的单元格中。
VBA代码如下:
Sub GetComment()
For Each cell In Range("A1:A5")
cell.Offset(0, 1) = cell.Comment.Text
Next cell
End Sub
运行以后,批注内容就会出现在B列了。
可以看到这里的代码比较简单,最主要提取的内容就是cell.Offset(0, 1) = cell.Comment.Text。但是实际表格中,不一定所有的批注都在同一列中,需要放的位置可能也在其他区域。
如果其中一个单元格没有批注的话,例如这里将A4单元格批注去掉,运行以后会有这样的错误提示:
这时候可以加个判断语句进去:
Sub GetComment()
For Each cell In Range("A1:A5")
If Not cell.Comment Is Nothing Then
cell.Offset(0, 1) = cell.Comment.Text
End If
Next cell
End Sub
跳过没有批注的单元格,就不会出现错误了。因此在使用的时候需要根据实际情况来进行修改。
网站声明:如果转载,请联系本站管理员。否则一切后果自行承担。
加入交流群
请使用微信扫一扫!