¿Operación de la hoja de cálculo de Excel VBA?

El mensaje en ejecución es que no hay for en el siguiente, porque si range(" e "; i) = "female", entonces esta línea es incorrecta.

Debes agregar una línea endIf encima de If, ​​o cambiar la línea If a ElseIf.

Además, primero escribes el código y el título y luego eliminas la línea, por lo que si es una línea que necesita ser eliminada, no es necesario.

Lo escribiré nuevamente para usted:

Suboperación ()

Dim s, defino s como un número entero y I como un número entero.

Para s = 1 a 8 'Atraviesa 1 a 8. De forma predeterminada, el tamaño del paso es 1.

Zhang. Seleccione 'Seleccionar tabla'.

para I = Rango(" B " amp; fila. cout). fin(3). rowto2step -1 'Recorre el número máximo de filas en la columna B hasta 2, con un tamaño de paso de -1.

Si Rango(" D " amp i) = " "Entonces

Línea (I). Elimina la primera línea.

Otro

Nombre del código

Si Scope(" B " amp i) = "Ciencia e ingeniería" Entonces

Scope(" C " ampi) = "LG "

ElseIf range(" B " ampi) = "artes liberales" entonces

Alcance(" C " ampi) = "WK "

ElseIfScope(" B " ampi) = "Finanzas"

Scope(" C "ampi) = "CJ "

Terminará si...

Dirección

Si range("E"ampi)="Male"

Rango("F"ampi)="Sr."

Elsef range("E"ampi)="female"

range("F"ampi)="Mrs."

Terminará si...

p >

Terminará si...

Siguiente yo

Siguiente s

Cuadro de mensaje "¡Listo!", aparece "Preguntar"

Conector final