Function st1()
razmin = Len(CStr(a))
With Sheets("столбы")
    Select Case razmin
    Case 1
        v = 3
        .Cells(10, 2) = i
        .Cells(6, 2) = y

    Case 2
        v = 5
        .Cells(11, 4) = Left(i, 1)
        .Cells(10, 4) = Right(i, 1)
        .Cells(7, 4) = Left(y, 1)
        .Cells(6, 4) = Right(y, 1)

    Case 3
        v = 7
        .Cells(11, 6) = Left(i, 1)
        .Cells(10, 6) = Right(Left(i, 2), 1)
        .Cells(9, 6) = Right(i, 1)

        .Cells(7, 6) = Left(y, 1)
        .Cells(6, 6) = Right(Left(y, 2), 1)
        .Cells(5, 6) = Right(y, 1)

    Case 4
        v = 9
        .Cells(12, 8) = Left(i, 1)
        .Cells(11, 8) = Right(Left(i, 2), 1)
        .Cells(10, 8) = Left(Right(i, 2), 1)
        .Cells(9, 8) = Right(i, 1)

        .Cells(8, 8) = Left(y, 1)
        .Cells(7, 8) = Right(Left(y, 2), 1)
        .Cells(6, 8) = Left(Right(y, 2), 1)
        .Cells(5, 8) = Right(y, 1)
        
    End Select
End With
End Function