Генерация случайных чисел без повторений

[Chertyozhnik]

Добрый день.

Прошу помощи в написании макроса в гугл таблице. В теме по ссылке http://www.excel-vba.ru/forum/index.php?topic=3990.msg21587#msg21587 есть данные о макросе, которые отлично работает в обычном экселе. Может кто-то сможет создать то же самое, только для Гуглтаблиц? Дело в том, что сам абсолютно не разбираюсь в этом... Но очень-очень надо....

Код (vb) Выделить Развернуть

Function RndUnicArr(n&, Optional m& = 0) 
'функция генерации случайных уникальных целых чисел от 1 до n 
'возвращает горизонтальный массив из m элементов 
    Dim i&, j&, a&() 
    If n < 1 Or n > 10000000 Then Exit Function 
    If m > n Or m < 1 Then m = n 
    ReDim a&(1 To n) 
    Randomize 
    For i = 1 To n 
        j = Int(Rnd * i + 1) 
        If i <> j Then a(i) = a(j) 
        a(j) = i 
    Next i 
    ReDim Preserve a&(1 To m) 
    RndUnicArr = a 
End Function