excel - 仅使用 vba 用两个数字填充单元格

Question

请帮助我，我要做的是用数字 0 和 2 填充单元格 N2:N1041。我希望 N 列中的总共 100 个单元格（要填充的随机单元格）填充为“0”，其余的940 个单元格有“2”。或者换句话说，我希望范围的 9.6% (N2:N1041) 用“0”填充，其余的用“2”填充。

非常感谢你。

Answer 1

你所拥有的是一个相当简单的控制Do循环的练习。

首先，将此范围内的所有单元格值设置为“2”。

然后，使用该RandBetween功能，选择该范围内的随机单元格设置为“0”值。添加一个检查以确保您没有用 0 覆盖 0，然后添加一个计数器，以便您可以控制何时退出循环。

Sub TestMacro()
Dim rng As Range
Dim count0 As Integer
Dim randCell As Range

Set rng = Range("A2:A1041")

rng.Value = "2" 'Set all cells = 2.'

Do

    Set randCell = rng.Cells(Application.WorksheetFunction.RandBetween(1, 1040))
    'make sure we're not overwriting another 0-value'
    If Not randCell.Value = 0 Then
        randCell.Value = 0  
        'increment the counter variable'
        count0 = Application.WorksheetFunction.CountIf(rng, "0")
    End If
Loop While count0 < 100  'exit the loop once 100 cells have been changed to 0.'


End Sub