跪求大神！如何在excel中用一个命令提取出与固定列相减绝对值最小的其他列的数据

{=LOOKUP(1,0/(MIN(ABS(B1:J1-A1))=ABS(B1:J1-A1)),B1:J1)}
{=MIN(IF(ABS(B1:J1-A1)=MIN(ABS(B1:J1-A1)),$B1:$J1))}
这样只能求出第一个值的最小值，不能求出A列其他数值的最小值

学习了

Sub nMinABS()
Dim sj()
nRow = [a65536].End(xlUp).Row
If nRow < 2 Then Exit Sub
ReDim sj(nRow - 2, 0)
For i = 2 To nRow
   nMin = Abs(Cells(i, 2) - Cells(i, 1))
   For j = 2 To 10
        nNum = Abs(Cells(i, j) - Cells(i, 1))
        If nNum <= nMin Then
            sj(i - 2, 0) = Cells(i, j)
            nMin = nNum
        End If
   Next
Next
Range("K2:K" & nRow) = sj
End Sub