¿Cómo escribir VBA de muestreo múltiple en EXCEL? Cómo escribir un bucle ~

Dim s1 (1 a 10000) tiene la misma longitud

Datos originales

Dim s2 (1 a 10000) es un valor booleano

Defina una matriz sobre los datos originales.

Identifica si se ha muestreado la matriz original.

La atenuación posterior (1 a 100, 1 a 100) tiene la misma longitud

Objeto de destino, 100 conjuntos de datos.

Para i = 1 a 10000

s1(i) = i

Entonces

En esta prueba, se utilizan de 1 a 10000 matrices. asignado a datos sin procesar.

Para i = 1 a 100

100 muestreo

n = 1

n representa el número de muestras en este muestreo.

Hacer Mientras n & lt= 100 'Cuando N >;

Hacer irregular

Redistribuir semillas aleatorias

k = Int(Rnd()* 10000)+1

Dentro de 10000 de números aleatorios

si s2(k) = false, entonces

si los datos originales no fueron muestreados.

back(i,n) = s1(k)

Datos de la tienda

s2(k) = true

El logo tiene estado tomando muestras.

n = n + 1

Datos de muestreo más 1

Si... terminará

El bucle

Luego

conector final