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 p>
Siguiente yo