Números aleatórios em um intervalo de células

Question

Eu quero gerar números aleatórios no meu modelo. Toda vez que executo a macro, meu intervalo de células "G8: H34" precisa ser preenchido com números aleatórios diferentes, que devem ser números inteiros de 0 a 2. Eu tenho que gerar esses números em VBA, porque eu preciso usá-los para otimizar um modelo para um custo mínimo e usar o loop depois disso para encontrar a melhor combinação que minimize o custo. Obrigada!

    

Answer 1

Considere:

Sub qwerty()
    Dim r As Range
    Set r = Range("G8:H34")
    With r
        .Formula = "=randbetween(0,2)"
        .Copy
        .PasteSpecial (xlPasteValues)
    End With
End Sub