求肋。

270912979

请问怎么批量提取批注至后一列。谢谢大家

小花鹿

Sub test()
Dim cell1, cell2
Set cell1 = Sheet1.UsedRange
For Each cell2 In cell1
    If Not cell2.Comment Is Nothing Then
        cell2.Offset(0, 1) = cell2.Comment.Text
    End If
Next cell2
End Sub

liulang0808

Sub 按钮90_Click()
    Application.ScreenUpdating = False
    a = 2
    For Each cm In ActiveSheet.Comments
        Cells(a, "z") = cm.Text
        a = a + 1
    Next cm
    Application.ScreenUpdating = True
End Sub

liulang0808

f附件内容供参考

270912979

liulang0808 发表于 2016-6-24 11:20
f附件内容供参考

谢谢，  我想要C列的批注提取到D列  H列的到I列  M列的到N列 。。。。这样要怎么弄呢。。麻烦了

小花鹿

我发了几行代码，为什么要审核........................................................................................

蓝桥玄霜

请见代码。

小花鹿

dogsyh

1. Function pizhu(c As Range) As String
   
2.     pizhu = c.Comment.Text
   
3. End Function
   

复制代码

自定义一个提取批注的函数
打开VBE 插入模块 在模块中复制以上代码
然后=pizhu（C3）的意思就是提取C3单元格的批注

dogsyh

Function pizhu(c As Range) As String
    pizhu = c.Comment.Text
End Function

自定义函数
用=pizhu（）可提取批注

代码怎么发不出来？？？