多条件查找最相近时间

s28720000

如题 麻烦老师们协助一下
尝试很多公式都无法带出想要的结果

想要达到的目的：判断E2是否等于B列的值 若等于 返回最接近F2的C列时间 D至F列的数据会很大量

紫幽ziyou

接近F列的时间？比这个时间早还是晚还是不管早晚？

limonet

普通公式穷尽了，只能M365
=IFERROR(IF(SUM(--($B$2:$B$16=E2)),XLOOKUP(F2,C:C,C:C,,-1),""),INDEX(C:C,MATCH(F2,C:C,-1)))

紫幽ziyou

1. 
   
2. Public Function 求最近()
   
3. Dim c, d As Date
   
4. Dim e, m, n, z As Integer
   
5. Dim f As String
   
6. m = 2
   
7. z = 0
   
8. Do Until Sheet1.Cells(m, 6).Value = ""
   
9.     n = 2
   
10.     Do Until Sheet1.Cells(n, 3).Value = ""
    
11.         If Sheet1.Cells(n, 2).Value = Sheet1.Cells(m, 5).Value Then
    
12.             z = z + 1
    
13.             c = FormatDateTime(Sheet1.Cells(n, 3).Value)
    
14.             d = FormatDateTime(Sheet1.Cells(m, 6).Value)
    
15.             If z = 1 Then
    
16.                 e = Abs(DateDiff("s", c, d))
    
17.                 f = Sheet1.Cells(n, 3).Value
    
18.             Else
    
19.                 If Abs(DateDiff("s", c, d)) < e Then
    
20.                     e = Abs(DateDiff("s", c, d))
    
21.                     f = Sheet1.Cells(n, 3).Value
    
22.                 End If
    
23.             End If
    
24.         End If
    
25.        n = n + 1
    
26.     Loop
    
27.     z = 0
    
28.     Sheet1.Cells(m, 7).Value = f
    
29.     m = m + 1
    
30.     f = ""
    
31. Loop
    
32. End Function
    

复制代码

s28720000

紫幽ziyou 发表于 2020-11-30 14:10
接近F列的时间？比这个时间早还是晚还是不管早晚？

不管早晚 F列的时间可以重複 只要是最接近的时间即可

s28720000

limonet 发表于 2020-11-30 14:46
普通公式穷尽了，只能M365
=IFERROR(IF(SUM(--($B$2:$B$16=E2)),XLOOKUP(F2,C:C,C:C,,-1),""),INDEX(C:C,M ...

谢谢您
但是使用您提供的附件实际尝试后只有前两个查找结果是正确的

s28720000

紫幽ziyou 发表于 2020-11-30 18:00

感谢您提供～
但是尝试使用您提供的附件 会跳出424错误导致无法计算 请问这要怎处理呢？

s28720000

补充一下~
时间不管早晚 F列的时间可以重複 只要是最接近的时间即可


若单列不好处里 可以多列筛选 或是使用excel其他功能合并使用

紫幽ziyou

s28720000 发表于 2020-12-1 08:01
時間不管早晚 F列的时间可以重複 只要是最接近的时间即可

那你把代码复制过去运行试下

s28720000

紫幽ziyou 发表于 2020-12-1 08:25
那你把代码复制过去运行试下

尝试过一样会跳出424错误 不知道问题在哪里