I need some help with a VBA Function?

[brianclay111]

Is there an easy way to do this? I'm trying to take the list from column D and compare each cell to the elements in column A, then compare the number next to column D(column E) and match that number with the closest match in column B that is in that group and write it to column G. I also need to do the same thing for column F. For Example, dog column E is 53, in column A there are 4 rows with dog and the closest number to 53 is 35, so the 35 would go in G2. Then the same for column F but would get written in H2 and so on.
I'm a little stumped on this one, any help would be appreciated. Thank You.

 

[VBasic2008]

Are the answers for cat 76 and 46?

 

[brianclay111]

Are the answers for cat 76 and 46?

Yes.

 

[DanteAmor]

Check if you want the following results

varios 13sep2020.xlsm
	A	B	C	D	E	F	G	H
1
2	dog	35		dog	53	13	35	12
3	dog	12		cat	128	23	76	46
4	dog	4		horse	67	16	57	7
5	dog	76		chicken	16	43	23	45
6	cat	234		cow	34	5	35	12
7	cat	46
8	cat	76
9	horse	34
10	horse	54
11	horse	57
12	horse	2
13	horse	7
14	chicken	45
15	chicken	23
16	chicken	64
17	chicken	97
18	cow	35
19	cow	36
20	cow	37
21	cow	43
22	cow	12
23	cow	15
Hoja4

Here is another macro for you to consider:

Sub closest_match()
  Dim dic As Object, c As Range, i As Long
  Set dic = CreateObject("Scripting.Dictionary")
  For i = 2 To Range("D" & Rows.Count).End(3).Row
    dic(Range("D" & i).Value) = Array(i, Range("E" & i).Value, Range("F" & i).Value)
    Range("G" & i & ",H" & i).Value = 9 ^ 9
  Next
  For Each c In Range("A2", Range("A" & Rows.Count).End(3))
    If Abs(c.Offset(, 1) - dic(c.Value)(1)) < Abs(Range("E" & dic(c.Value)(0)).Value - Range("G" & dic(c.Value)(0)).Value) Then _
      Range("G" & dic(c.Value)(0)).Value = c.Offset(, 1)
    If Abs(c.Offset(, 1) - dic(c.Value)(2)) < Abs(Range("F" & dic(c.Value)(0)).Value - Range("H" & dic(c.Value)(0)).Value) Then _
      Range("H" & dic(c.Value)(0)).Value = c.Offset(, 1)
  Next
End Sub