¿Excel filtra objetos calificados?
1. Pegue sus datos en la Hoja 1 (es decir, la hoja de trabajo 1) de una nueva tabla de Excel (como no tengo sus datos, uso directamente ABC como prefijo).
2. Mantenga presionados Alt y F11.
3. Haga clic en Insertar y Módulo en la nueva ventana que aparece.
4. Ingrese el siguiente código en el área donde está el cursor:
Subsearch()
Atenuar temperatura en forma de cadena
etiquetará I como un número entero
Dim j como un número entero
Etiquete r como un número entero
Establezca el valor máximo como un número entero
j = 1
Atenuar rngA como rango
Atenuar rngC como rango
Establecer rngA = Hoja1. rango("A:A")
Establecer rngC = Hoja1. Rango(" C:C ")
temp = rngA(2)
Máx = rngC(2)
r = 2
Para i=2 a Hoja1. UsedRange.Rows.Count
Si (temp = rngA(i)) Entonces
Si (rngC(i)>Max) Entonces
Max = rngC( i)
r = i
Terminará si...
Otro
Hoja1. Número de filas(r). Copiar papel 2. Número de filas (j)
j = j 1
temp = rngA(i)
Max = rngC(i)
r = i
Terminará si...
Siguiente i
Finalizar conector
5. Haga clic en el triángulo verde en este. ventana (Antes de hacer clic, asegúrese de tener la Hoja 2 en su libro de trabajo).
6. Puede encontrar los resultados de la búsqueda anterior en la Hoja2.
Antes de escribir el código anterior, confirme que Excel tenga una hoja de cálculo Sheet2. De lo contrario, primero cree uno nuevo (generalmente, el nuevo número de serie es automáticamente Hoja2). Si no se puede resolver, modifique ligeramente el código anterior de la siguiente manera:
Subsearch()
Atenuar temperatura en forma de cadena
Marcar I como un número entero
Dim j es un número entero
Etiqueta r como un número entero
Establece el valor máximo como un número entero
Hojas oscuras
Establecer hojaMY = Este libro de trabajo. hoja de trabajo. Agregar
j = 1
Atenuar rngA como rango
Atenuar rngC como rango
Establecer rngA = Hoja1. rango("A:A")
Establecer rngC = Hoja1. Rango(" C:C ")
temp = rngA(2)
Máx = rngC(2)
r = 2
Para i=2 a Hoja1. UsedRange.Rows.Count
Si (temp = rngA(i)) Entonces
Si (rngC(i)>Max) Entonces
Max = rngC( i)
r = i
Terminará si...
Otro
Hoja1. Número de filas(r). Copiar papel.
Número de filas (j)
j = j 1
temp = rngA(i)
Max = rngC(i)
r = i
Terminará si...
Siguiente i
Finalizar conector
De esta forma el programa automáticamente cree una nueva tabla de trabajos y resuma los resultados que cumplan con los requisitos en una nueva hoja de trabajo. Por supuesto, si está utilizando WPS o una versión incompleta de Office, primero instale VBA o la versión completa de Office...