Dobbeltgængere i tilfældig stikprøve
Hej folkensJeg skal udvælge en tilfældig stikprøve i en kolonne med data. Der er problemer med dobbeltgængere:
Dim VarData() As Integer
ReDim VarData(SampleSize)
Lowerbound = 300 'som ekspempel (sidste række, LastRow)
Upperbound = 16 '(øverste række)
For j = 1 To SampleSize
Randomize
RandomNo = Int((Lowerbound - Upperbound + 1) * Rnd + Upperbound)
If IsNumeric(Application.Match(RandomNo, VarData, 0))
Randomize
RandomNo = Int((Lowerbound - Upperbound + 1) * Rnd + Upperbound)
End If
VarData(j) = RandomNo
RandomNo er en tilfældig linje i mit data, og i loopet (og i arrayet varData) optræder gengangere. Jeg forsøger at genberegne RandomNo, hvis RandomNo der er en genganger, men problemer er, at nogle gange, så bliver Rnd genberegnet til samme værdi, som i første linje, og så opstår der igen gengangere.
Kan I hjælpe med en modifikation eller en ny bedre kode til udvælgelse af en stikprøve?
