Доброе время суток. Есть задача в Excel. Нужно сравнить два столбца и подобрать для второго столбца наиболее близкое значение из первого.
Макрос который использую
1 Ст; 2 Ст ; результат
1200; 1900; 1300
1300; 1200; 1200
2800; 2680;
840 ; 841 ; 840
830 ; 720 ;
750 ;
все время разные данные.
Желательно макрос.
Применял макрос, но он не корректно подбирает значения.
Sub Raspredlitel()
Dim arrEt, arrMetka, arrMetka2, arrIncome
Dim i%, iGlob%, j%, eps&, mJ%, mI%
arrEt = Range([D4], [D10000].End(xlUp)).Value
arrIncome = Range([K4], [K10000].End(xlUp)).Value
ReDim arrMetka(1 To UBound(arrEt))
ReDim arrMetka2(1 To UBound(arrIncome))
For iGlob = 1 To UBound(arrIncome, 1)
eps = 9 ^ 9
mJ = 1
mI = 1
For i = 1 To UBound(arrIncome, 1)
If IsEmpty(arrMetka2(i)) Then
For j = 1 To UBound(arrEt)
If Abs(arrIncome(i, 1) - arrEt(j, 1)) < eps And IsEmpty(arrMetka(j)) Then
mJ = j
mI = i
eps = Abs(arrIncome(i, 1) - arrEt(j, 1))
End If
Next j
End If
Next i
arrMetka(mJ) = 1
arrMetka2(mI) = 1
[M3].Offset(mI) = arrEt(mJ, 1)
Next iGlob
End Sub