Function MyCombin(ByVal n As Long, ByVal m As Long) As Double
    Dim i As Long, p As Double
    If m > n Or m < 0 Then Exit Function
    If m > n - m Then m = n - m
    p = 1
    For i = 1 To m
        p = p * n / i
        n = n - 1
    Next i
    MyCombin = p
End Function

=-ПРАВБ(СУММ(-ПСТР(B3;{1:3:5:7}+{0;0;1};1);-(ПСТР(B3;{1:3:5:7};1)-4>0)))=0

=-ПРАВБ(СУММ(ПСТР(B3;{1:3:5:7}+{0;0;1};1)+(ПСТР(B3;{1:3:5:7};1)-4>0)/3))=0

=ОСТАТ(СУММ(-ПСТР(B3;{1:3:5:7}+{0;0;1};1);-(--ПСТР(B3;{1:3:5:7};1)>4));10)=0

=ОСТАТ(B3+СУММ((-ПСТР(0&B3;{1:3:5:7}+{0;1};1)<0)*(ОСТАТ(ПСТР(0&B3;{1:3:5:7}+{0;1};1)*{1;2}-1;9)+1));10)=0

=ОСТАТ(СУММ((-ПСТР(B3;{1:3:5:7}+{0;1};1)<0)*(ОСТАТ(ПСТР(B3;{1:3:5:7}+{0;1};1)*{2;1}-1;9)+1));10)=0

=КОРЕНЬ(СУММКВРАЗН($A5:$A114;B5:B114)/СЧЁТ($A5:$A114))

Sub mysum2()
    Dim i As Long, j As Long, txt As String
    Randomize
    For j = 1 To 9 Step 2
        For i = 1 To 50
            txt = fSum(0, 9, 1, 10, txt)
            Cells(i, j) = txt
    Next i, j
End Sub

Function fSum(min1 As Long, max1 As Long, min2 As Long, max2 As Long, Optional t2 As String = "") As String
    Dim znak As Long, s As Long, r1 As Long, r2 As Long, t1 As String
    Do
        r1 = Int(Rnd * (max1 - min1 + 1) + min1)
        r2 = Int(Rnd * (max1 - min1 + 1) + min1)
        znak = Int(Rnd * 2)
        If znak = 0 Then s = r1 - r2 Else s = r1 + r2
        t1 = r1 & IIf(znak = 0, " - ", " + ") & r2 & " ="
    Loop While s < min2 Or s > max2 Or t1 = t2
    fSum = t1
End Function

=A2-2*ЛЕВБ(--A1)