在excel中如何實現對某一列數據進行20％的隨機抽取？

效果演示:

代碼如下:

Sub Rnddatao()

'清空提取結果

Range("B2:B11").Clear

Dim startrow As Integer '起始數據行位置

Dim endrow As Integer '結束行數據位置

Dim percentage As Double '需要提取的百分比

Dim datacount As Integer '需要提取多少個數據

percentage = 0.2

startrow = 2

endrow = 11

'計算提取多少個數據 , (結束行起始行) * 百分比, 最后取整

datacount = Int((endrow - startrow + 1) * percentage)

For i = 1 To datacount '循環取多少個數據

1:

rndrow = Application.WorksheetFunction.RandBetween(startrow, endrow)

If Range("B" & rndrow) = "" Then

Range("B" & rndrow) = Range("A" & rndrow)

Else

GoTo 1:

End If

Next

MsgBox "提取完成！", 64, "提示"

End Sub