如何为 vlookup 设置 Excel VBA 循环

Question

I have a dashboard (image below) where I manually add entries. Then there is a log (image below) where all entries are recorded with the help of IF and Vlookup functions.

I need a code so so that every output cell in the log finds through all the entries in the dashboard and gives the answer. I think loop for vlookup will be used.

[Edit] Consider the Dasboard table as a discrete table where manually entries are posted. Consider log table as a continues table where record of every hour for each date is kept. The entries from Dashboard table get posted to the log table. New Image attached New Image

I have entered this function in output column in the log table:

 =IF( AND(H3=$B$3,I3>= $C$3,I3<$D$3) ,$E$3,0) + IF(AND(H3=$B$4,I3>= $C$4,I3<$D$4) ,$E$4,0) + IF (AND(H3=$B$5,I3>= $C$5,I3<$D$5), $E$5,0)

This works fine for me for plotting the entries but the problem is for every row in the dashboard i have to add a new IF-And function in the above. so for example if i want to add the 4th row of dashboard to be sync with the log ill have to add

+If(AND(H3=$B$6,I3>=$C$6,I3<$D$6),$E$6,0)

I want every row in the dashboard to add automatically somehow with a loop like: i = variable

 = If (AND(H3=$B$i,I3>= $C$i,I3<$D$i), $E$i,0)

Only one i will be greater than 0 while the rest will be zero. so the function should return me the sum of all i rather than just the last iteration.

Answer 1

Maybe just filldown the formula manually? if insist with macro, something like

Sub test()
Range("K3").Value = "X"
Range("K3:K10").FillDown
End Sub

replace "X" with your formula, keep the " " replace K10 with how far down you want

----edit----

let me break down below for you,

1. match(H3,B:B,0), will find the correct row in B that = H, in H3 case it finds B3

2. INDEX(B:E, MATCH(H3,B:B,0) ,2) -> now it find B3, index let you find C3 (notice the 2,3,4 in later codes, it means the column from B3)

3. and (I3>=...,J3>=...)now we got both start and end time, we use I and J to compare

4. if 3. is true, lookup the output column, else 0

=IF(AND(I3>=INDEX(B:E,MATCH(H3,B:B,0),2),J3>=INDEX(B:E,MATCH(H3,B:B,0),3)),INDEX(B:E,MATCH(H3,B:B,0),4),0)