根据源数据，归集各栋舍批次最先出生日期与最后出生日期。

yanglaicun

根据源数据，归集各栋舍批次最先出生日期与最后出生日期。谢谢！

hzruziniu

1. Sub 归集()
   
2.     Dim arr, brr(), i&, j&, m&, s$, r, d As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("源数据").[a1].CurrentRegion
   
5.     ReDim brr(1 To UBound(arr), 1 To 4)
   
6.     For i = 2 To UBound(arr)
   
7.         s = arr(i, 1) & arr(i, 2)
   
8.         r = d(s)
   
9.         If r = "" Then
   
10.             m = m + 1
    
11.             d(s) = m
    
12.             brr(m, 1) = arr(i, 1)
    
13.             brr(m, 2) = arr(i, 2)
    
14.             brr(m, 3) = arr(i, 3)
    
15.             brr(m, 4) = arr(i, 3)
    
16.         Else
    
17.             If arr(i, 3) < brr(r, 3) Then
    
18.                 brr(r, 3) = arr(i, 3)
    
19.             ElseIf arr(i, 3) > brr(r, 4) Then
    
20.                 brr(r, 4) = arr(i, 3)
    
21.             End If
    
22.         End If
    
23.     Next
    
24.   '  Range("A1").CurrentRegion.Offset(1).ClearContents
    
25.     Range("A2").Resize(m, 4) = brr
    
26. End Sub

复制代码

hzruziniu

求助1.rar (20.81 KB, 下载次数: 15)

2021-5-4 18:05 上传

点击文件名下载附件

yanglaicun

完美！谢谢老师！