- 博客(3)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 把一组数字打乱顺序
解决Excel问题时遇到了随机获得一组不重复的随机序列，查了一些资料效果不理想，用VBA写了一个，其实给自己备注一下。以后用到时好找到，有需要的随意。Option ExplicitSub 交换数组元素位置()Dim Arr1(19), i%, j, K, m, Rndrange As Long, Rnd1 As Double, TT = TimerFor i = 0 To 19 Arr1(i) = iNext iRndrange = UBound(Arr1) Do While
2022-04-20 21:44:15
457
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人