求助丨大家帮忙看下，表格中数据二次筛选和排序问题

=IF(GCD(A81753,B81753)>1,"–", A81753/B81753)

你这个是算法问题了得找数学专业的，你如果有算法思路想要excel来实现可以来这边求助

Excel有一个求最大公约数的函数

Option Explicit
Sub abc()
　Dim i, j, k, t, m
　ReDim a(1 To 100 ^ 2, 1 To 4)
　For i = 2 To 99
　　For j = 1 To i - 1
　　　For k = 2 To j
　　　　If (i Mod k) = 0 And (j Mod k) = 0 Then Exit For
　　　Next
　　　If k = j + 1 Then
　　　　m = m + 1
　　　　a(m, 1) = j: a(m, 2) = i: a(m, 3) = j & "/" & i: a(m, 4) = j / i
　　　End If
　　Next
　Next
　Call qsort(a, 1, m, 1, UBound(a, 2), 4)
　[a1].Resize(m, 4) = a
　For i = 1 To m
　　If a(i, 1) = 7 And a(i, 2) = 13 Then
　　　If a(i, 4) - a(i - 1, 4) < a(i + 1, 4) - a(i, 4) Then t = -1 Else t = 1
　　　Cells(1, "e") = a(i + t, 1): Cells(1, "f") = a(i + t, 2)
　　　Exit For
　　End If
　Next
End Sub
Function qsort(a, first, last, left, right, key)
　Dim i As Long, j As Long, k As Long, x, t
　i = first: j = last: x = a((first + last) \ 2, key)
　While i <= j
　　While a(i, key) < x: i = i + 1: Wend
　　While x < a(j, key): j = j - 1: Wend
　　If i <= j Then
　　　For k = left To right
　　　　t = a(i, k): a(i, k) = a(j, k): a(j, k) = t
　　　Next
　　　i = i + 1: j = j - 1
　　End If
　Wend
　If first < j Then qsort a, first, j, left, right, key
　If i < last Then qsort a, i, last, left, right, key
End Function

Option Explicit
Sub abc()
　Dim i, j, k, t, d, min
　d = 7 / 13: min = d
　For i = 2 To 9999
　　For j = 1 To i - 1
　　　If Abs(j / i - d) < min Then
　　　　For k = 2 To j
　　　　　If (i Mod k) = 0 And (j Mod k) = 0 Then Exit For
　　　　Next
　　　　If k = j + 1 Then
　　　　　If j <> 7 And i <> 13 Then min = Abs(j / i - d): t = j & "/" & i
　　　　End If
　　　End If
　　Next
　Next
　MsgBox t
End Sub