Function fd(x) Dim dic As Object, a, b%(40), i%, j%, f, aa For j = 1 To 40: b(j) = 0: Next j x = Replace(x, ",", ",") x = Replace(x, "-,", "-") a = Split(x, ",") For i = 0 To UBound(a) - 1aa = Split(a(i), "-")For j = 1 To 40 If j Mod Val(aa(0)) = Val(aa(1)) Then b(j) = b(j) + 1Next j Next i f = ""...
|