Deleterows secundários ()
Application.ScreenUpdating = falso
Srow não ofuscante como por muito tempo
srow = 1
Fazer até o srow > o Cells.Find (que: = " * ", SearchDirection: =xlPrevious, SearchOrder: =xlByRows). Fileira
Se InStr (1, pilhas (srow, “a”), “Z:\websitepublic\”, vbTextCompare) > 0 ou InStr (1, pilhas (srow, “a”), “nenhuns originais selecionados neste diretório”, vbTextCompare) > 0 então
Fileiras (srow). Supressão
ElseIf Application.WorksheetFunction.CountA (escala (srow & “: ” & srow)) = 0 então
Fileiras (srow). Supressão
Mais
srow = srow + 1
Terminar se
Laço
Application.ScreenUpdating = retificam
Submarino da extremidade
|