excel怎么生成1到10，每个数字出现5到8次的数组

excel怎么生成1到10，每个数字出现5到8次的数组，1到10的数字一样的要排在一起。比如，1；1;1;1;1;1;3;3;3;3;3;3;3;7;7;7;7;7;7;7;...这样

Dim arr() As Integer
Dim i As Integer
Dim r As Integer
Randomize
ReDim arr(0 To 0)

For i = 1 To 10
    r = Int((7 - 5 + 1) * Rnd + 5)
    ReDim Preserve arr(0 To UBound(arr) + r)
    For j = 1 To r
        arr(UBound(arr) - r + j) = i
    Next j
Next i