vba查找最近的数据

waw751115

quqiyuan 发表于 2024-10-1 10:06
参与一下，仅供参考。。。

谢谢，节日快乐

waw751115

gwjkkkkk 发表于 2024-10-1 09:36
参与一下。。。

您好，我刚放到另一个表中对比：发现有的查找结果不是最近的那个时间啊

kyxfyzg

就是参与一下。。。。。。。

waw751115

kyxfyzg 发表于 2024-10-1 10:19
就是参与一下。。。。。。。

谢谢您，节日快乐

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. With Sheet1
   
5.     arr = .Range("a1").CurrentRegion.Value
   
6.     ReDim brr(1 To UBound(arr), 1 To 3)
   
7.     For i = 2 To UBound(arr)
   
8.         
   
9.         If arr(i, 4) = "" Then arr(i, 4) = arr(i - 1, 4)
   
10.         If arr(i, 3) = "" Then arr(i, 3) = arr(i - 1, 3)
    
11.         s = arr(i, 4)
    
12.         If Not dic.exists(s) Then
    
13.             m = m + 1
    
14.             dic(s) = m
    
15.             brr(m, 1) = s: brr(m, 2) = arr(i, 3): brr(m, 3) = CDate(arr(i, 2))
    
16.         Else
    
17.             r = dic(s)
    
18.             If brr(r, 3) < CDate(arr(i, 2)) Then brr(r, 3) = CDate(arr(i, 2)): brr(r, 2) = arr(i, 3)
    
19.         End If
    
20.     Next i
    
21.     .Range("i2").Resize(m, 2) = brr
    
22. End With
    
23. Set dic = Nothing
    
24. End Sub
    

复制代码

Qs18

试试.......

Qs18

试试..........

waw751115

ZHLK 发表于 2024-10-1 10:00
Sub demo()
Dim cnn As Object, rst As Object
Dim strPath As String, strCnn As String, strSQL As Str ...

您好，您这个怎样只有一个结果啊？

waw751115

ZHLK 发表于 2024-10-1 10:00
Sub demo()
Dim cnn As Object, rst As Object
Dim strPath As String, strCnn As String, strSQL As Str ...

您好，请问您这个结果怎么只有一个啊？

ericxzhou

Python+Pandas:
import pandas as pd

df = pd.read_excel('pandas exercise/sample471.xlsx', usecols='a:d', parse_dates=[1])
df = df.sort_values(['车牌号', '时间'])
df.groupby('车牌号', as_index=False).last().iloc[:, [0, 3]]