主题：[求助]遍历整列，计算每行数字与最近的相同数字间的距离

求助大佬

遍历整列数字，计算每一行数字与最近的相同数字间的距离，填入下一列

Dim t As Table = Tables("表a")

For i As Integer = 0 To t.rows.count-1
    Dim down As Integer = 0
    Dim up As Integer = 0
    For j As Integer = i+1 To t.rows.count-1
        If t.rows(i)("第一列") = t.rows(j)("第一列") Then
            down = j-i-1
            Exit For
        End If
    Next
    For j As Integer = i-1 To 0 Step -1
        If t.rows(i)("第一列") = t.rows(j)("第一列") Then
            up = i-j-1
            Exit For
        End If
    Next
    t.rows(i)("第二列") = iif(down>up, down, iif(up=0, Nothing, up))
Next