分段问题

themoonily

求助大神！
想将yield表中每个代码的交易日期小于bond中第一个评级日期的部分，对应评级结果为空值；
交易日期大于bond中第一个评级日期，小于第二个评级日期的部分，对应评级结果为第一个评级日期对应的债项评级结果；
交易日期大于bond中第二个评级日期，小于第三个评级日期的部分，对应评级结果为第二个评级日期对应的债项评级结果；
以此类推，得到yield表格中每个证券代码不同交易日期的评级结果。
谢谢！！！

看见星光

1. =IFERROR(LOOKUP(B2,OFFSET(bond!B$1:C$1,MATCH(A2,bond!A:A,)-1,,COUNTIF(bond!A:A,A2))),"")

复制代码

11ratings.rar (142.81 KB, 下载次数: 1)

2018-6-22 09:12 上传

点击文件名下载附件

zhenghui13

请查看结果是否是你期望的。

zhenghui13

补上代码

1. 
   
2. Sub Find_Rate()
   
3. Dim t
   
4. Dim arr
   
5. Dim m As Integer
   
6. Dim s_Stock As String
   
7. Dim d_Trans As Date
   
8. Dim s_Rate As String
   
9. t = Timer
   
10. arr = Sheets("bond").UsedRange
    
11. With Sheets("yield")
    
12.     For m = 2 To .Cells(65536, 1).End(xlUp).Row
    
13.         s_Stock = .Cells(m, 1)      'Stock Number
    
14.         d_Trans = .Cells(m, 2)      'Transaction Date
    
15.         s_Rate = Lookup_Data_by_Array(arr, s_Stock, d_Trans)
    
16.         .Cells(m, 3) = s_Rate
    
17.     Next m
    
18. End With
    
19. MsgBox (Timer - t)
    
20. End Sub
    
21. 
    
22. Function Lookup_Data_by_Array(arr, Str$, Dt) As String
    
23. Dim i, j
    
24. Dim iStock As String
    
25. Dim iDate As Date
    
26. Dim flag As Boolean
    
27. For i = 2 To UBound(arr)
    
28.     iStock = arr(i, 1)
    
29.     If iStock = Str Then        'Stock Number Matched
    
30.         flag = True
    
31.         j = i
    
32.         Do While flag
    
33.             If j > UBound(arr) Then Lookup_Data_by_Array = "NA": Exit Function
    
34.             iDate = arr(j, 2)
    
35.             If Dt < iDate Then
    
36.                 flag = False
    
37.                 Lookup_Data_by_Array = arr(j, 3)
    
38.                 Exit Function
    
39.             Else
    
40.                 j = j + 1
    
41.             End If
    
42.         Loop
    
43.     End If
    
44. Next i
    
45. End Function

复制代码

themoonily

zhenghui13 发表于 2018-6-22 09:17
请查看结果是否是你期望的。

应该是小于2015/6/4的都为空，大于2015/6/4小于2016/3/11的为A-1，我看看您的代码，应该可以写出来了。谢谢您！

themoonily

看见星光 发表于 2018-6-22 09:12

好的，谢谢啦！知道怎么处理了