怎样通过VBA找到相同名称的最后一条记录？

ttu221

B test.rar (16.65 KB, 下载次数: 18)

2013-12-1 00:02 上传

点击文件名下载附件

自己做了个查询，目的是通过日期(RECORD TIME)来确定变动的物料数据，形成最终数据(inventor).问题是现在这些已实现，但不能将只保留相同名称物料的最后记录，而是全部都有！我只想保留最后变动的那一条记录！请问用VBA如何实现？PS：在sheet2中我现在只能用函数实现。

windimi007

不知道是不是这个意思？请测试！

1. Sub test()
   
2.     Dim d As Object
   
3.     Dim ar, br(1 To 10000, 1 To 2)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     ar = Sheet1.Cells.CurrentRegion
   
6.     For i = 2 To UBound(ar)
   
7.         If d.exists(ar(i, 1)) Then
   
8.             If ar(i, 7) >= d(ar(i, 1))(1) Then br(d(ar(i, 1))(0), 2) = ar(i, 8)
   
9.         Else
   
10.             j = j + 1
    
11.             d.Add ar(i, 1), Array(j, ar(i, 7))
    
12.             br(j, 1) = ar(i, 1)
    
13.             br(j, 2) = ar(i, 8)
    
14.         End If
    
15.     Next i
    
16.     With Sheet2.Cells(3, 1)
    
17.         .Resize(Rows.Count - 2, 2).ClearContents
    
18.         .Resize(j, 2) = br
    
19.     End With
    
20. End Sub

复制代码

sixhero

windimi007 发表于 2013-12-1 09:19
不知道是不是这个意思？请测试！

是的，很厉害！