新收入求教

darni

请各位大侠看一下

第一列是月份，第二列是访客id，每个访客id都是唯一的
规则是这样的，只要访客id在上月或之前任何一个月出现过，他就是老访客，仅在当月出现多次的不算老访客，如果是老访客的话在第三列标注是，否的话标注否，请问这样用vba如何实现？

看见星光

1. Sub DicCount()
   
2.     Dim d As Object
   
3.     Dim arr, i&
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     arr = Range("a1").CurrentRegion
   
6.     For i = 2 To UBound(arr)
   
7.         If Not d.exists(arr(i, 2)) Then
   
8.             d(arr(i, 2)) = arr(i, 1)
   
9.             arr(i, 3) = "否"
   
10.         Else
    
11.             If arr(i, 1) <> d(arr(i, 2)) Then
    
12.                 arr(i, 3) = "是"
    
13.             Else
    
14.                 arr(i, 3) = "否"
    
15.             End If
    
16.         End If
    
17.     Next
    
18.     Range("a1").CurrentRegion = arr
    
19.     Set d = Nothing
    
20.     MsgBox "ok"
    
21. End Sub
    

复制代码

看见星光

老客.rar (18.18 KB, 下载次数: 3)

2018-6-14 16:12 上传

点击文件名下载附件

附件参考

lenghonghai601

1. Sub 按钮1_Click()
   
2. Dim d As Object, b As Boolean, arr, brr()
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. ReDim brr(1 To UBound(arr))
   
6. For i = 2 To UBound(arr) - 1
   
7.     b = False
   
8.     For j = i + 1 To UBound(arr)
   
9.         If arr(i, 1) <> arr(j, 1) Then
   
10.             If arr(i, 2) = arr(j, 2) Then b = True
    
11.         End If
    
12.     Next j
    
13.     If b = True Then brr(i - 1) = "是" Else brr(i - 1) = "否"
    
14. Next i
    
15. Range("c2").Resize(UBound(brr) - 1, 1) = Application.Transpose(brr)
    
16. End Sub

复制代码

lenghonghai601

看见星光 发表于 2018-6-14 16:11

学习了，思路很好。

darni

看见星光 发表于 2018-6-14 16:11

看明白了，多谢