qtablewidget修改单元格内容_Excel中如何使用VBA批量提取单元格的批注内容

在单元格里面肯定会需要使用到批注这个功能，但是在使用不规范或者没有注意整体的梳理，很容易出现很多批注，且内容比较多的情况。这时候就可以将批注都提取出来，然后统一进行整理。下面就介绍一下如何使用VBA将批注提取出来。

现在有这样一个表格，里面的单元格都有对应的批注。

现在就要将批注提取出来，然后放到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

跳过没有批注的单元格，就不会出现错误了。因此在使用的时候需要根据实际情况来进行修改。

想了解更多Excel的操作技巧，欢迎关注微信公众号：tobefascinating，一起学习，一起进步。