提取B列最后一次出现的记录并计算时间差

yshcy

数据源在sheet1,代码运行结果在sheet2.代码的结果是，把数据源里的首次记录时间（也就是绿色部分）提出来，并计算出到目前为止的时间差。现在想提取B列最后一次的记录（sheet1黄色部分）并计算时间差，谢谢。

dambcer

大概这样吧。。

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, i&, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Sheets(1).[A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        dic(ar(i, 1)) = Array(ar(i, 1), ar(i, 2), Date - ar(i, 2))
    Next i
   
    With Sheets(2)
        .[A1].CurrentRegion.Offset(1).Clear
        With .[A2].Resize(dic.Count, 3)
            .Value = Application.Rept(dic.items, 1)
            .Columns(2).NumberFormatLocal = "yyyy/m/d"
        End With
        .Activate
    End With
   
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。。。

yshcy

dambcer 发表于 2024-6-23 12:21
大概这样吧。。

是的。能解释下为什么这两种写法就导致提取两种不同的结果呢？

longwin

参与一下.....

yshcy

longwin 发表于 2024-6-23 13:32
参与一下.....

你好。你的代码好像没变化。

魂断蓝桥

Sub a()
Dim cnn, myf$, sql$
myf = ThisWorkbook.FullName
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & myf
sql = "select 姓名,MAX(日期) AS T1 from [Sheet1$A1:B] where 姓名 is not null GROUP BY 姓名"
sql = "SELECT 姓名,T1,DateDiff(""d"", T1,NOW) FROM (" & sql & ")"
[e2:g9999] = ""
Range("E2").CopyFromRecordset cnn.Execute(sql)
Set cnn = Nothing
End Sub