如果批注内容重复，对应删除所在的行 VBA

lovesjh

某几个单元格批注内容一样，需要删除重复行，需要代码

lele6809

附件解压失败               

lele6809

参见类似的帖子：http://club.excelhome.net/thread-1476677-1-1.html

lovesjh

lele6809 发表于 2019-6-14 10:44
参见类似的帖子：http://club.excelhome.net/thread-1476677-1-1.html

他是相同批注求和统计，而我要删除，对VBA完全小白

lovesjh

如果批注内容重复，对应删除所在的行 VBA

w609053988

小白没事，只要有心学，在论坛逛一个月就能染黑了

w609053988

lovesjh 发表于 2019-8-22 13:44

按重复批注来删除的，没有考虑单元格的值

1. Sub test()
   
2.    
   
3.     Dim rng As Range, n&, i&, d As Object
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     n = Range("a" & Rows.Count).End(xlUp).Row
   
6.     For i = n To 1 Step -1
   
7.         If Not Range("a" & i).Comment Is Nothing Then
   
8.             If d.Exists(Range("a" & i).Comment.Text) Then
   
9.                 Rows(i).Delete
   
10.             Else
    
11.                 d(Range("a" & i).Comment.Text) = ""
    
12.             End If
    
13.         End If
    
14.     Next
    
15.    
    
16. End Sub

复制代码

lovesjh

w609053988 发表于 2019-8-22 13:54
小白没事，只要有心学，在论坛逛一个月就能染黑了

来点硬气的