Constellation Knowledge Network - Preguntas y respuestas sobre Bagua - Hay una gran cantidad de datos en las tablas de Excel. Quiero seleccionar aleatoriamente 100 grupos de casi 2000 grupos de datos. ¿Qué debo hacer? Soy nuevo en esto y quiero una manera fácil.

Hay una gran cantidad de datos en las tablas de Excel. Quiero seleccionar aleatoriamente 100 grupos de casi 2000 grupos de datos. ¿Qué debo hacer? Soy nuevo en esto y quiero una manera fácil.

Por ejemplo, su Excel tiene 1000 personas y desea seleccionar 100 personas como muestra de estas 1000 personas. Por supuesto, la premisa es que las 100 personas muestreadas no son duplicados.

Podemos utilizar el método de función y el método VBA para resolver los problemas anteriores o similares.

Para decirlo sin rodeos, el llamado muestreo no es más que una cuestión de tomar números aleatorios.

Primero, use funciones para implementar el muestreo

Si no conoce VBA, puede usar el siguiente método de operación de bucle deliberado, pero en teoría es 100% fallido, y allí Hay demasiados números, lo que lleva mucho tiempo.

a 1 entrada = if(suma($ b $ 1:$ b $ 100)< & gt; 100, INT(RAND()*1001), A1)

b 1 entrada = countif($a$1:$a 4100,a1).

Arrastra A1:B1 a A100:B100.

Luego realice la operación del menú: Herramientas → Opciones → Cálculo → Repetir operación; verificar → Tiempos máximos 10000 → OK, A1:B100 se calculará continuamente.

Si las 10,000 operaciones no tienen éxito, puede presionar F9 nuevamente para realizar la operación hasta que sea exitosa; si tiene éxito, debe pegar inmediatamente A1:A100, borrar el contenido de B1:B100 y desacoplar para completar el proceso. operación repetida.

En segundo lugar, utilice el método de muestreo VBA

Las condiciones son: del 1 al 1000, seleccione 100 números aleatorios no repetidos (enteros positivos).

Debido a que se requieren variables no repetidas, se debe utilizar un programa de bucle para juzgar.

La forma más sencilla es ejecutar una macro. Usando el siguiente código, se mostrarán 100 variables no repetidas en A1 a la vez: A100.

Sub My Sample()

Dim xx (1 a 1000) es un número entero

Para t = 1 a 100

Leylan de:

x = Int(Rnd() * 1000 + 1)

Si xx(x)>0 entonces vaya a re-aterrizaje

r = r + 1

Celda(r,1) = x

xx(x) = r

Entonces

conector final

上篇: ¿Dónde puedes encontrar perlas brillantes en el mundo submarino? 下篇: El marido está muerto
Artículos populares