[已解决]有哪位老师在么请教问题

qq8945051

请问怎么实现以下条件





求助.rar (6.33 KB, 下载次数: 14)

2016-3-31 19:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

just2seeusmile

2016-4-1 15:00

1. Sub ct()
   
2.     Dim a, b(), i%, j%, k%
   
3.     a = Array("地方A", "李四", "王五", "121212", "3333", "FS", "FS01", "AFDS")
   
4.     For j = 0 To UBound(a)
   
5.         i = 0
   
6.         For Each cell In Range("a1:z1")
   
7.             If CStr(cell.Value) = a(j) Then
   
8.                 i = i + 1
   
9.             End If
   
10.         Next
    
11.         k = 0
    
12.         If i = 0 Or i > 1 Then
    
13.             k = k + 1
    
14.             ReDim Preserve b(0 To k)
    
15.             b(k) = a(j)
    
16.         End If
    
17.     Next
    
18.     Z = Application.Trim(Join(b))
    
19.     If Z = "" Then
    
20.         [a2] = "正确匹配"
    
21.     Else
    
22.         [a2] = Z
    
23.     End If
    
24. End Sub

复制代码

跳转到最佳答案楼层

lichuanboy44

要求有点自相矛盾，请问：如果a数组元素与工作表第一行数据比对，如果既有2个重复，又有一个没有的，则结果在A2单元格显示重复的数还是没有的数呢？

qq8945051

lichuanboy44 发表于 2016-3-31 20:11
要求有点自相矛盾，请问：如果a数组元素与工作表第一行数据比对，如果既有2个重复，又有一个没有的，则结果 ...

有重复的            显示第一行数据中重复的 数据
有一个没有的     显示a数组中没有的 数据

just2seeusmile

1. Sub ct()
   
2.     Dim a, b(), i%, j%, k%
   
3.     a = Array("地方A", "李四", "王五", "121212", "3333", "FS", "FS01", "AFDS")
   
4.     For j = 0 To UBound(a)
   
5.         i = 0
   
6.         For Each cell In Range("a1:z1")
   
7.             If CStr(cell.Value) = a(j) Then
   
8.                 i = i + 1
   
9.             End If
   
10.         Next
    
11.         k = 0
    
12.         If i = 0 Or i > 1 Then
    
13.             k = k + 1
    
14.             ReDim Preserve b(0 To k)
    
15.             b(k) = a(j)
    
16.         End If
    
17.     Next
    
18.     Z = Application.Trim(Join(b))
    
19.     If Z = "" Then
    
20.         [a2] = "正确匹配"
    
21.     Else
    
22.         [a2] = Z
    
23.     End If
    
24. End Sub

复制代码

qq8945051

just2seeusmile 发表于 2016-4-1 15:00

太感谢您了  {:171:}