Макрос перебирает в цикле все ячейки выделенного диапазона,
и в пустые ячейки вставляет случайные числа от 1 до 12:

Sub FillBlankCellsWithRandomNumbers()

    ' заполняет пустые ячейки выделенного диапазона

    ' случайными значениями от 1 до 12

    Dim cell As Range, ra As Range

    ' ограничиваем выделенный диапазон используемой областью листа

    Set ra = Intersect(Selection, ActiveSheet.UsedRange)

    If ra Is Nothing Then

        MsgBox "В выделенном диапазоне нет пустых ячеек!", _

               vbExclamation, "Нечего заполнять"

    Else

        Application.ScreenUpdating = False    ' отключаем обновление экрана

        ' перебираем все ячейки в выделенном диапазоне

        For Each cell In ra.Cells

            ' если ячейка пустая - вычисляем случайное число, и заносим его в ячейку

            If Trim(cell) = "" Then cell = Fix(Rnd() * 12 + 1)

        Next cell

        ' можно и так - записать во все ячейки формулу,

        ' а потом заменить формулы значениями

        'ra.Formula = "=INT(RAND()*12+1)":         ra.Value = ra.Value

    End If

End Sub

• 19160 просмотров