小编Jib*_*ova的帖子

我需要在没有重复的情况下对数组中的值进行洗牌，我需要在我的代码中添加什么以避免重复

Function Resample(data_vector)


   n = UBound(data_vector)
   ReDim shuffled_vector(n)
   For i = 1 To n
      shuffled_vector(i) = data_vector(WorksheetFunction.RandBetween(1, n))
   Next i
End Function