Red de conocimiento informático - Problemas con los teléfonos móviles - VBA si Riga si

VBA si Riga si

Para i = 1 a x

Si Cells(i, 2).Value = gongsi Entonces

si i<>3 entonces

Rango("D4:E" & i - 1).ClearContents

Rango("h4:i" & i - 1).ClearContents

Rango("k4:k " & i - 1).ClearContents

Rango("p4:q" & i - 1).ClearContents

Rango("u4:u" & i - 1).ClearContents

finalizar si

Rango("d" & i + 1 & ":e" & x).ClearContents

Rango("h" & i + 1 & ":i" & x).ClearContents

Rango("k" & i + 1 & ":k" & x).ClearContents

Rango("P" & i + 1 & ":Q" & x).ClearContents

Rango("u" & i + 1 & ":u" & x).ClearContents

Fin si

Siguiente yo