разнести числа по пустым ячейкам рандомно

[Bape}l{ka]

привет всем)

дано: столбец частично заполнен вариантами ответов (варианты 1,2 или 3)
надо: РАНДОМНО заполнить пустые ячейки в столбце (в таблице) согласно заданному проценту
снизу подписано сколько процентов каждого варианта надо внести

подскажите пожалуйста, как это сделать средствами vba
как просто заполнить, я догадываюсь, но с рандомом возникают проблемы, т.к. диапазон пустых ячеек не смежный

пример прилагаю: Внести_в_пустые_рандомно.rar

[nerv]

не понял, что нужно

[Bape}l{ka]

т.е. нужно заполнить процент пустых ячеек данным вариантом/числом (вариант и процент подписаны под таблицей)

в частности у нас 5 незаполненных ячеек, и снизу написано 1=50 (т.е. в 50% незаполненных ячеек надо поставить цифру 1), но не подряд ставить 1 в пустые ячейки, а рандомно заполнять

[nerv]

Bape}l{ka, используйте функцию Rnd.

[Bape}l{ka]

про Rnd я знаю, я не знаю, как заполнить ячейки, т.к. они не являются смежным диапазоном... использовать Area?

[IgorGO]

заполняйте по одной.

[Bape}l{ka]

IgorGO, я не понимаю как это сделать, могли бы вы написать пример, желательно на мое случае

[IgorGO]

Sub InsRndVal()
  Dim c As Range, v As Integer, r As Range
  Randomize: Set r = [b2:b12]
  For Each c In r.SpecialCells(xlCellTypeBlanks)
    Do
      v = 1 + Int(3 * Rnd)
    Loop Until (WorksheetFunction.CountIf(r, v) + 1) / (r.Count + 1) <= r.Resize(1, 1).Offset(r.Count + v, 0)
    c = v
  Next
End Sub

там где у Вас было написано 1=50, 2=33, 3=17 я написал 0.5, 0.33, 0.17
в колонке № две тройки специально было написано?

[Bape}l{ka]

IgorGO, спасибо большое, обязательно испытаю!.. пока же я сделала немного другой случай - там где надо расставить в рандомном порядке в конце таблицы

конечно кривовато, но на скорую руку нормально, и самое главное - работает!!))
т.е. я сначала последовательно заполняю ячейки нужными вариантами, а потом просто перемешиваю ячейки с помощью:

Sub random()

Range("B2:E5").Select

Randomize

'koeficient to determine steps quantity for values randomization
koef = 1.5

x = Selection.Rows.Count
y = Selection.Columns.Count

For i = 0 To Int(x * y * koef)
rndX1 = Int((x * Rnd) + 1)
rndX2 = Int((x * Rnd) + 1)
rndY1 = Int((y * Rnd) + 1)
rndY2 = Int((y * Rnd) + 1)

tmp_value = Selection.Cells(rndX1, rndY1).Value
Selection.Cells(rndX1, rndY1).Value = Selection.Cells(rndX2, rndY2).Value
Selection.Cells(rndX2, rndY2).Value = tmp_value

Next i

End Sub
0