Помогите составить формулу в Excel 2007

[VictorK]

Скопировать формулу (обе строки) и вставить в B1
Растянуть за нижний правый угол ячейки на C1
Затем так же растянуть обе ячейки вниз до пятидесятой строки

[VictorK]

Я создал столбец A с числами от 1 до 100
В ячейку B1 вставил формулу =СЛУЧМЕЖДУ(1;100) и растянул её вниз.
Затем произвел сортировку по столбцу B, в результате числа в столбце A оказались перемешанными в случайном порядке. Их и использовал в формуле (пришлось поменять местами пару чисел, которые нарушали условие (одинаковые числа в строках). Но это конечно, топорный метод...

[IgorGO]

выполните 1 раз этот макрос:

Sub SetRnd()
  Dim mi As Long, ma As Long, c As Long, sd As String, f As String, d As Long, n As Long, a()
  sd = "":  n = 0:  mi = 1:  ma = 99:  c = 50:  f = String(Len("" & ma), "0") & " ":  Randomize
  Do
    d = 1 + Int(Rnd() * (ma + 1))
    If InStr(sd, Format(d, f)) = 0 Then sd = sd & Format(d, f): n = n + 1
  Loop Until n = c
  a = Application.Transpose(Split(sd)):  [b1].Resize(c, 1).Value = a:  sd = "":  n = 0
  Do
    d = 1 + Int(Rnd() * (ma + 1))
    If InStr(sd, Format(d, f)) = 0 And d <> a(n + 1, 1) Then sd = sd & Format(d, f): n = n + 1
  Loop Until n = c
  a = Application.Transpose(Split(sd)):  [c1].Resize(c, 1).Value = a
End Sub

[oleg1977]

IgorGO, спасибо. Но почему то пропали записи в столбце А?