Public Shared Function Floor (d As Double) As Double
Sub Funс()
For i = 1 To 20
value = (255 - 224 + 1) * Rnd()
Worksheets("Лист1").cells(i, 1) = Chr (CInt(Math.Floor(value) + 224)
Next i
End Sub