excel 提取批注的方法，都是通过VBA代码完成提取的

欧非资源网：安全、免费、专业放心的资源下载站！ 最新软件|软件分类

您的位置：欧非资源网 > Excel专区 > Excel函数 > excel 提取批注的方法，都是通过VBA代码完成提取的

excel 提取批注的方法，都是通过VBA代码完成提取的 时间：2020-02-01 18:13作者：admin来源：未知人气：894我要评论(0)

excel提取批注内容到单元格，使用excel内置命令无法完成。

excel提取批注方法一：

　　比如下图所示A2：A9单元格区域都添加了批注，将这些批注内容提取到C2：C9单元格区域里面。比如A2单元格的批注内容是：没有销量，对应的C2单元格显示的内容就是：没有销量。

excel提取批注

　　excel提取批注的操作步骤如下：

　　按ATL+F11，打开VBE编辑器，单击插入——模块，复制粘贴下面的代码到右边的编辑窗口。然后回到excel工作表，在C2单元格输入公式：=pizhu(A2)，下拉复制即可提取批注。

Public Function pizhu(i As Range)
pizhu = i.Cells.Comment.Text
End Function

　　通过编写上面的自定义函数来提取批注，可方便的调用，就如同使用普通公式一样使用。

excel提取批注的自定义函数

　　使用上面的这个提取批注的不完美之处在于，如果原有单元格的批注内容编辑更新后，上面的方法不会自动更新，只有双击重新编辑单元格公式才会更新。如果需要自动更新可以在代码前面添加一句：Application.Volatile True '自定义函数自动刷新。

　　修改后代码如下：

Public Function pizhu(i As Range)
Application.Volatile True '自定义函数自动刷新
pizhu = i.Cells.Comment.Text
End Function

excel提取批注方法二：

　　再提供一段代码，使用方法同上，代码如下：

    Function GetComment(rCell As Range)
    Application.Volatile   '将自定义函数标记为易失性函数
    Dim Cmt As String
    On Error Resume Next
    Cmt = rCell.Comment.Text
    GetComment = Right(Cmt, Len(Cmt) - InStr(1, Cmt, ":", vbTextCompare))
    On Error GoTo 0
End Function

　　返回到Excel工作表，比如要提取A2单元格的批注内容，则在C2单元格输入公式： =GetComment(A2)即可提取批注。

　　提示：此自定义函数仅提取批注内容，而不包含批注作者。由于将自定义函数标记为易失性函数，如果A2单元格中的批注被修改，按F9键或当任意单元格进行计算时即可得提取到修改后的批注内容。

文章评论

查看所有0条评论>>

分类索引