请问如何将批注的内容提取到另一列中

AVEL

ghh5599 发表于 2013-4-7 21:43
您好，请问您的代码要如何使用？为什么我打开文件，里面只有一个按纽？

点击按纽就好了

ghh5599

AVEL 发表于 2013-4-8 08:30
点击按纽就好了

感谢我看到结果了，请问如何才能运用到我自己的表格中呢。拜托，请写一下方法哈。。
附件的表格只是示例，而我真正的表格是数量很多的，你这个不是公式，我无法学习啊。。。

AVEL

Sub L()
    Dim R As Range
    Dim i As Integer
    Dim arr(1 To 10000, 1 To 1)
    For Each R In Range("C2", [C65536].End(3)).SpecialCells(xlCellTypeComments) 'c改为你需要取数的列，C2代表取数开始的第一个单元格地址
        i = i + 1
        arr(i, 1) = VBA.Replace(R.Comment.Text, "Administrator:", "")
    Next
    [d2].Resize(i).Value = arr '[D2]改成你想存放结果的单元格
End Sub

lisa6187771

AVEL 发表于 2013-4-7 09:42

点击按钮后,不能对应前一列的内容.如何解决?

ghh5599

看来我应该先学习如何加入程序V语言，你们教了我，我还是没弄懂。。真是有愧于大家啊

yniu88

AVEL 发表于 2013-4-10 16:00
Sub L()
    Dim R As Range
    Dim i As Integer

这个程序有个问题，就是如果有个单元格没有批注值，那就会出来问题。粘帖的数值会错位的

AVEL

yniu88 发表于 2015-7-24 17:06
这个程序有个问题，就是如果有个单元格没有批注值，那就会出来问题。粘帖的数值会错位的

修改一下即可。

1. Sub L()
   
2.     Dim R As Range
   
3.     Dim i As Integer
   
4.     Dim arr(1 To 10000, 1 To 1)
   
5.     For Each R In Range("C2", [C65536].End(3))
   
6.         i = i + 1
   
7.         If Not R.Comment Is Nothing Then arr(i, 1) = VBA.Replace(R.Comment.Text, "Administrator:" & Chr(10), "")
   
8.     Next
   
9.     [d2].Resize(i).Value = arr
   
10. End Sub

复制代码

yniu88

AVEL 发表于 2015-7-25 14:13
修改一下即可。

太佩服了！也琢磨了下。没想出这么改代码

dtlcg

AVEL 发表于 2015-7-25 14:13
修改一下即可。

你这个代码不错，有一个小问题能否解决一下，就是如果原批注转行了，你这个代码提取出来的也是转行了，能否设成提取后不转行？

AVEL

dtlcg 发表于 2018-3-28 20:34
你这个代码不错，有一个小问题能否解决一下，就是如果原批注转行了，你这个代码提取出来的也是转行了，能 ...

转行是什么意思？ 换行么？