删除2列有重复内容的行及填充条件格式颜色

志65

Hi，我有2个问题，问题如下：

第一个就是删除2列之间有重复内容的行。如第一个表格，在A列中，若有内容跟B列相同的话，那么就会删除A列与B列含有相同内容的行，最终结果请查看工作表“结果”。如截图。

第二个问题是，我在A列做了一个条件格式，有颜色那些单元格是由于条件格式原因才显示的，而不是单元格填充的颜色。我想要条件格式显示的颜色单元格也填充颜色，不用手动的一个个点颜色单元格来填充颜色。如截图。

望大神赐教，多谢

zhenghui13

你这两个问题是不是有点相互矛盾，1->是删除重复;2->标记重复。执行了1，2怎么执行呢？

1. 'http://club.excelhome.net/thread-1438311-1-1.html
   
2. Sub Check_Duplicated()
   
3. Dim Dic As Object
   
4. Dim arr
   
5. Dim Sk$
   
6. Dim m
   
7. Set Dic = CreateObject("Scripting.Dictionary")
   
8. 
   
9. With Sheet1
   
10.     'B列读入字典
    
11.     For m = 3 To .Cells(65536, 2).End(xlUp).Row
    
12.         Sk = .Cells(m, 2).Value
    
13.         If Not Dic.Exists(Sk) Then Dic(Sk) = Dic(Sk) + 1
    
14.     Next m
    
15.     '检查A列值
    
16.     For m = 3 To .Cells(65536, 1).End(xlUp).Row
    
17.         Sk = .Cells(m, 1).Value
    
18.         If Dic.Exists(Sk) Then
    
19.             .Cells(m, 1) = ""
    
20.             .Cells(m, 1).Interior.ColorIndex = 44
    
21.         End If
    
22.     Next m
    
23. End With
    
24. Debug.Print Timer
    
25. End Sub

复制代码

alstar

1. Sub 删除()
   
2. For i = 3 To 16
   
3.     For ii = 3 To 11
   
4.         If Cells(i, 1) = Cells(ii, 2) Then
   
5.             Cells(i, 1) = ""
   
6.         Exit For
   
7.         End If
   
8.     Next
   
9. Next
   
10. Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
11. End Sub
    

复制代码

志65

zhenghui13 发表于 2018-9-30 10:40
你这两个问题是不是有点相互矛盾，1->是删除重复;2->标记重复。执行了1，2怎么执行呢？

我是有2种要处理的表格，一个是删除重复的，一个是不删除重复的，但是要标记出来

alstar

你那个条件格式的颜色我没看懂你想要的效果。你可以去掉条件格式里的函数公式，用VBA来实现填充。

1. Sub 颜色()
   
2. For i = 3 To 16
   
3.     For ii = 3 To 11
   
4.         If Cells(i, 1) = Cells(ii, 2) Then
   
5.             Cells(i, 1).Interior.Color = 49407
   
6.         Exit For
   
7.         End If
   
8.     Next
   
9. Next
   
10. End Sub
    

复制代码

志65

zhenghui13 发表于 2018-9-30 10:40
你这两个问题是不是有点相互矛盾，1->是删除重复;2->标记重复。执行了1，2怎么执行呢？

我那2个表格“删除A列跟B列有重复内容的行”和”条件格式填充颜色”是完全没有关联的啊，我刚刚看了你的附件，怎么会有颜色的？你是不是把2个表格联系到一起了？

可能我表达的不够清晰，现在是2种表格处理的都不同的话，所以就应该有2个宏，我看到你那有1个宏而已？

志65

alstar 发表于 2018-9-30 11:14

多谢，另外一个条件格式填充颜色的表格，你知道怎么写宏吗？多谢

alstar

志65 发表于 2018-9-30 11:28
多谢，另外一个条件格式填充颜色的表格，你知道怎么写宏吗？多谢

1. Sub 颜色()
   
2. For i = 3 To 16
   
3.     For ii = 3 To 11
   
4.         If Cells(i, 1) = Cells(ii, 2) Then
   
5.             Cells(i, 1).Interior.Color = 49407
   
6.         Exit For
   
7.         End If
   
8.     Next
   
9. Next
   
10. End Sub
    

复制代码

志65

alstar 发表于 2018-9-30 11:30

我是要识别有条件格式显示有颜色才填充颜色的。因为这样我可能用到其他地方去下次我只需修改一下就能用到了。所以这里就不要识别A列跟B列是否有相同的就填充颜色，我要的结果是A列有条件格式显示颜色的就填充颜色。

志65

alstar 发表于 2018-9-30 11:30

下次都可以用在其他条件格式那，只有有条件格式有显示颜色的单元格就填充颜色