Excel随机选择出10个数据

1、打开Excel表格，点击【开发工具】、【Visual Basic】，调出VBE编辑器。

3、在模块代码框里边输入以下VBA程序。Sub Rnd_Cells_Select()Dim i1, i2, i3, i4, Str1On Error Resume NextRandomize '初始化随机数种子Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1i4 = 1For i1 = 1 To 10000 '预计执行10000次（条件满足就退出）i2 = Int(Rnd() * 2000 + 2) '生成2~2001的随机数i3 = InStr(1, Str1, i2) '判断随机字符所在的位置If Str1 = "" Or i3 = 0 Then '如果随机字符是空白或不存在重复，则 Str1 = Str1 & "," & i2 '拼接字符 i4 = i4 + 1 '行数累计+1 mysheet1.Cells(i4, 4) = mysheet1.Cells(i2, 1) '写入D列单元格 If i4 >= 11 Then Exit For '退出For循环 End IfEnd IfNextEnd Sub

5、回到Sheet1工作表界面，将会看到程序的执行结果。