Red de conocimiento informático - Aprendizaje de programación - ¿Cómo realizar un juicio condicional entre varias pestañas en Excel?

¿Cómo realizar un juicio condicional entre varias pestañas en Excel?

¡Resolví este problema por ti!

Asumimos que los datos en su segunda tabla se almacenan hacia abajo desde A1. Ahora realiza las siguientes operaciones

1. Abra el libro en el que tiene datos. para ingresar a la interfaz de programación de VBA

2. En la interfaz de VBA, despliegue el segundo botón en la barra de herramientas y seleccione "Módulo", verá un "Módulo-Módulo 1" en el "Área de visualización inferior". , verá una jerarquía "Módulo-Módulo 1" en el área de visualización inferior

3. Haga doble clic en "Módulo 1" y luego pegue el siguiente programa a la derecha. Vaya al espacio en blanco grande. área del programa

Sub trans()

Atenuar origen como rango

Atenuar destino como rango

Atenuar lastData mientras

Establecer origen = Worksheets(2).Range("A1")

Establecer destino = Worksheets(1).Range("A1")

lastData = Worksheets(2) ).Range("A65536").End(xlUp).Row

Para i = t Para lastData

Si source.Value = 1 Entonces

Con destino

.Value = fuente.Value

.Offset(, 1).Value = fuente.Offset(, 1 ).Value

.Offset(, 2).Value = source.Offset(, 2).

Finalizar con

Establecer destino = target.Offset(1)

Finalizar si

Establecer fuente = fuente.Offset(1)

Siguiente i

End Sub

4. Ahora cierre esta ventana y regrese a la hoja de trabajo. , seleccione "Herramientas - Macros" para abrir una ventana de diálogo de macro. En la ventana, debería ver que dentro de la macro llamada trans haga clic en el botón "Ejecutar" (si este paso no funciona, significa que ha configurado la macro. nivel de seguridad alto, luego guarde este archivo primero, luego seleccione "Herramientas--Macro--Seguridad" en Excel y configúrelo en medio o bajo (luego vuelva a abrir el archivo y ejecute el siguiente paso. Paso 4)

5. Una vez completado con éxito el cuarto paso, verifique si su primera hoja de trabajo muestra los datos que desea según sea necesario.