请教老师：如何查找相同日期所对应的编号？

zainan0810

请教各位老师：
在左边数据中，将A、B列重复数据去掉；日月年列中，它们三列组合出来的形式，在“种类”中都有对应的编号，将这些编号，放在相同日期的后面。具体结果见“结果”表。

特殊说明：对于同一个日期，它所对应的日月年产生的编号，第一次出现时，用编号本身数值，这个编号第二次出现时，编号后面加.1，这个编号第三次出现时，加.2，以此类推。 每天日月年的种类横向组合.rar (290.23 KB, 下载次数: 7)

2018-8-3 13:59 上传

点击文件名下载附件

microyip

做个字典，用日期编号做Key，每次出现就+1，把Item结果作为序号就可以了

jnsxmt

逻辑性很强，但有点复杂，稍后会作一些答复

zainan0810

microyip 发表于 2018-8-3 14:09
做个字典，用日期编号做Key，每次出现就+1，把Item结果作为序号就可以了

谢谢microyip老师的指点！难者不会，会者不难。我要是有您的本领，就不来这里发帖子啦，嘿嘿。您以前没少帮我解答，这次如果有心情，还一如既往的帮助我呗！呵呵

zainan0810

jnsxmt 发表于 2018-8-3 16:40
逻辑性很强，但有点复杂，稍后会作一些答复

谢谢jnsxmt老师的付出！大热天的，让您受累啦！

不知道为什么

zainan0810 发表于 2018-8-3 16:44
谢谢microyip老师的指点！难者不会，会者不难。我要是有您的本领，就不来这里发帖子啦，嘿嘿。您以前没少 ...

如图，是不是你需要的？
我居然用了3个字典完成的，希望有老师来指点下。

不知道为什么

zainan0810 发表于 2018-8-3 16:47
谢谢jnsxmt老师的付出！大热天的，让您受累啦！

参考

zainan0810

不知道为什么 发表于 2018-8-3 19:19
如图，是不是你需要的？
我居然用了3个字典完成的，希望有老师来指点下。

谢谢不知道为什么老师的指点！正是我需要的，嘿嘿。

zainan0810

不知道为什么 发表于 2018-8-3 19:24
参考

不知道为什么老师，我知道您的好意：让我更好的学习一下，别不劳而获。可对我来讲，水平与您差距太大，即使写一遍，也是照猫画虎。所以，您能不能直接把代码给我啊？不好意思啊，让您见笑啦，嘿嘿。

不知道为什么

zainan0810 发表于 2018-8-4 09:32
不知道为什么老师，我知道您的好意：让我更好的学习一下，别不劳而获。可对我来讲，水平与您差距太大，即 ...

刚开电脑。代码如下

1. Option Explicit
   
2. Sub 结果N()
   
3.     Dim Dic, Dfh, Djs, Arr, Brr(), k, Msg
   
4.     Dim Ms$, Mm$, Gjz$, i&, j&, n&, x&, y&, bz%
   
5.     Dim crr(1 To 10000)
   
6.     Application.ScreenUpdating = False
   
7.     Set Dic = CreateObject("scripting.dictionary")
   
8.     Set Dfh = CreateObject("scripting.dictionary")
   
9.     With Sheets("种类")
   
10.         Arr = .[a1].CurrentRegion
    
11.         For i = 1 To UBound(Arr)
    
12.             Ms = Trim(Arr(i, 2)) & "|" & Trim(Arr(i, 3)) & "|" & Trim(Arr(i, 4))
    
13.             Dfh(Ms) = Arr(i, 1)
    
14.         Next i
    
15.     End With
    
16.     With Sheets("原始数据")
    
17.         Arr = .[a1].CurrentRegion
    
18.         For i = 2 To UBound(Arr)
    
19.             Gjz = CStr(Trim(Arr(i, 1))) & "#" & CStr(DateValue(Arr(i, 2)))
    
20.             Ms = Trim(Arr(i, 3)) & "|" & Trim(Arr(i, 4)) & "|" & Trim(Arr(i, 5))
    
21.             Dic(Gjz) = Dic(Gjz) & "#" & Ms
    
22.         Next i
    
23.     End With
    
24.    
    

复制代码