Sub www()
    Dim i As Long, j As Long, s As Long, a(9)
    For i = 9 To 0 Step -1
        s = 1 + Len(Join(a)) - Len(Replace(Join(a), i, ""))
        If a(i) <> s Then a(i) = s: i = 10
    Next i
    Cells(1, 1).Resize(, 10) = a
End Sub

Sub wwwCombin()
    Dim n As Long, i As Long, strRes As String
    Dim a() As Long, b(9) As Long
    
    Const m As Long = 9
    ReDim a(1 To m) As Long
    For n = 19 To 20
        For i = 1 To m: a(i) = i: Next i
        Do
            b(0) = a(1)
            For i = 1 To m - 1
                b(i) = a(i + 1) - a(i)
            Next i
            b(9) = n + 1 - a(m)
            If fCheck(b()) Then
                strRes = "В этом предложении "
                For i = 0 To 9
                    strRes = strRes & "цифра " & i & IIf(i = 0, " встречается ", " - ") & b(i) & " раз" & IIf(b(i) > 1 And b(i) < 5, "а", "") & IIf(i < 9, ", ", "")
                Next
                Debug.Print strRes
            End If
        Loop While NextCombin(a(), n, m)
    Next n
End Sub

Function fCheck(b() As Long) As Boolean 'проверка массива на соответствие
    Dim c(9) As Long, i As Long
    For i = 0 To 9
        c(b(i) Mod 10) = c(b(i) Mod 10) + 1
        If b(i) > 9 Then c(b(i) \ 10) = c(b(i) \ 10) + 1
    Next i
    For i = 0 To 9
        If c(i) + 1 <> b(i) Then Exit Function
    Next i
    fCheck = True
End Function

Function NextCombin(a() As Long, n As Long, m As Long) As Boolean 'следующее сочетание
    Dim i As Long, j As Long
    For i = m To 1 Step -1
        If a(i) < n - m + i Then
            a(i) = a(i) + 1
            For j = i + 1 To m
                a(j) = a(j - 1) + 1
            Next j
            NextCombin = True
            Exit For
        End If
    Next i
End Function

Sub www()
    Dim i As Long, j As Long, s As Long, a(9) As Long
    For i = 9 To 0 Step -1
        s = 1
        For j = 0 To 9
            s = s - (a(j) Mod 10 = i) + (a(j) \ 10 = i) * (a(j) > 9)
        Next j
        If a(i) <> s Then
            a(i) = s
            i = 10 'не совсем красиво, но работает
        End If
    Next i
    Cells(1, 1).Resize(, 10) = a 'альтернативный вывод, для упрощения, можно оставить предыдущий вариант
End Sub

=ЧИСЛКОМБ(A5;A3)*ГИПЕРГЕОМЕТ(A2;A3;A4;A5)

=ЧИСЛКОМБ(A4;A2)*ЧИСЛКОМБ(A5-A4;A3-A2)

=(ЧСТРОК(A$2:A3)-ПОИСКПОЗ(2;1/(A$2:A3<>1)))*(A4<>1)

=ПРОСМОТР(A2;{0:5000:9000:15000};(A2-{0:5000:9000:15000})*{0:0,03:0,04:0,05}+{0:0:120:360})

=ПРОСМОТР(A2;{0:5000:9000:15000};A2*{0:3:4:5}%-{0:150:240:390})

=МАКС((СТОЛБЕЦ(A:CW)+СТРОКА(1:51)*2<=163)*(СТОЛБЕЦ(A:CW)*45+СТРОКА(1:51)*60))-6105