[已解决]求助各位大神如果快速自动计算出是不是重复值

renlong

想通过VBA的方式快速把F列的标注出是否存在重复值和不重复值，我是手动填的，
判别条件：
在D列数据中，先判断是不是一组，是一组的话再看后面E列，如果D2：D22这个区域中，a_291这一组数据对应的后面E列值去看，如果E2：E22这个区域中的任何一个值和其他剩余的E2：E22中的值都不一样的话，那么F2：F22写存在不重复值；如果E2：E22区域里的值都一样（即这21个值都是一样的，而不是有几个是一样的），那么后面就写存在重复值，

截图2

最佳答案

月排行榜 / 总排行榜

wanao2008

2016-9-12 21:04

祝您好运！

请测试：

1. Sub wanao()
   
2.     Dim x As Integer, endL As Integer, sRow As Integer
   
3.     Dim Str1 As String, str2 As String
   
4.     Dim cF As Boolean
   
5.     endL = Cells(Rows.Count, "d").End(xlUp).Row
   
6.     For x = 2 To endL
   
7.         If Str1 = "" Or Str1 <> Cells(x, "d") Then
   
8.             Str1 = Cells(x, "d")
   
9.             str2 = Cells(x, "e")
   
10.             sRow = x
    
11.             cF = False
    
12.         Else
    
13.             If Cells(x, "e") <> str2 Then cF = True
    
14.             If cF Then Range(Cells(sRow, "f"), Cells(x, "f")) = "存在不重复值" Else Range(Cells(sRow, "f"), Cells(x, "f")) = "不存在"
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

苏子龙

没有文件，模拟结果和说的要不同？

wanao2008

祝您好运！

请测试：

1. Sub wanao()
   
2.     Dim x As Integer, endL As Integer, sRow As Integer
   
3.     Dim Str1 As String, str2 As String
   
4.     Dim cF As Boolean
   
5.     endL = Cells(Rows.Count, "d").End(xlUp).Row
   
6.     For x = 2 To endL
   
7.         If Str1 = "" Or Str1 <> Cells(x, "d") Then
   
8.             Str1 = Cells(x, "d")
   
9.             str2 = Cells(x, "e")
   
10.             sRow = x
    
11.             cF = False
    
12.         Else
    
13.             If Cells(x, "e") <> str2 Then cF = True
    
14.             If cF Then Range(Cells(sRow, "f"), Cells(x, "f")) = "存在不重复值" Else Range(Cells(sRow, "f"), Cells(x, "f")) = "不存在"
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码

renlong

非常感谢大神，完美，求认识，级别低没法私信

renlong

wanao2008

renlong 发表于 2016-9-13 10:12
非常感谢大神，完美，求认识，级别低没法私信

我爱“EXCEL精英论坛”，我一直在这里，你只要来就能找到我，回我的贴也行。