VBA：有没有一种方法可以将最小量的数据提取到宏中？

问题描述

我正在研究VBA宏，该宏从其他工作表中提取数据以进行审核。样本至少应为提取数据的5％。最重要的是，该宏至少需要50个值。如何添加该条件？

For i = 6 To (rcount + 6 - 1)
    Cells(i,3).Formula = "=RAND()"
    Cells(i,3).Value = Cells(i,3).Value
    Next i
    'Selection.AutoFill Destination:=Range(Cells(6,3),Cells(rcount + 6 - 1,3))
    Set rand_range = Range(Cells(6,Cells(6,3).End(xlDown))
    rand_range.Select
    Selection.FormatConditions.AddTop10
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .TopBottom = xlTop10Top
        .Rank = 5
        .Percent = True

    End With

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excel excel rank