vba 如何匹配小于指定日期的第一个日期的值？

xlvevc

vba 如何匹配小于指定日期的第一个日期的值?具体见附件

匹配小于日期的值.rar (8.54 KB, 下载次数: 7)

2020-5-15 17:31 上传

点击文件名下载附件

0126

如果你a列的日期都是顺序排下来的话
简单的你可以按倒序循环a列，判断日期是不是小于查找日期，小于就提取第二列，


难的你可以学习一下二分排序法，使用那个方法匹配顺序的日期会快些

xlvevc

0126 发表于 2020-5-15 18:54
如果你a列的日期都是顺序排下来的话
简单的你可以按倒序循环a列，判断日期是不是小于查找日期，小于就提取 ...

日期是按顺序的，具体要怎么写呢？找了坛子里的，没找到比较好的方法，水平有限，自己写出来，只能改改例子

xlvevc

自己顶一下  有没有大神帮忙一下

shuidisyy

用公式 LOOKUP(D3-1,$A$2:$A$90,$B$2:$B$90)

xlvevc

shuidisyy 发表于 2020-5-17 22:53
用公式 LOOKUP(D3-1,$A$2:$A$90,$B$2:$B$90)

谢谢 ，用公式我知道 就是想知道如何 用vba 实现

cutecpu

1. Sub demo()
   
2.    Dim arr: arr = Range("A2").Resize(Cells(Rows.Count, "A").End(xlUp).Row - 1, 2)
   
3.    i = 2
   
4.    While Cells(i, "D") > 0
   
5.       L = 1: R = UBound(arr)
   
6.       While L + 1 < R
   
7.          M = (L + R) \ 2
   
8.          If arr(M, 1) < Cells(i, "D") Then L = M Else R = M - 1
   
9.       Wend
   
10.       If arr(L, 1) >= Cells(i, "D") Then
    
11.          Cells(i, "E").Value = "No Match"
    
12.       ElseIf arr(R, 1) < Cells(i, "D") Then
    
13.          Cells(i, "E").Value = arr(R, 2)
    
14.       Else:
    
15.          Cells(i, "E").Value = arr(L, 2)
    
16.       End If
    
17.       i = i + 1
    
18.    Wend
    
19. End Sub
    

复制代码

祝順心，南無阿彌陀佛！

xlvevc

cutecpu 发表于 2020-5-18 00:11
祝順心，南無阿彌陀佛！

超版您好  还是没吃透这个vba,如果 余额从B列调整到C列  要改哪里啊

已经找到地方了