VERIFICAR TODAS AS LINHAS E APAGAR CABECALHOS
Galera, preciso criar uma macro que verifique todas as linhas e apague as que tiverem certos conteúdos. Tem umas 600 mil linhas, eu criei uma mas a macro apaga algumas linhas que não deve e não exclui algumas que deve, talvez seja um bug por a planilha conter muitas linhas, precisaria de um pause no meio da macro?
Preciso da ajuda de vocês valeuu pessoal!
Preciso da ajuda de vocês valeuu pessoal!
Esse é o código que estou utilizando.
Sub ApagarCabeçalho()
Dim v As Long
For v = 1 To 66000
If (Not (IsNumeric(ActiveSheet.Range([Ô]A[Ô] & v)))) Or IsEmpty(ActiveSheet.Range([Ô]A[Ô] & v)) Then
Range(v & [Ô]:[Ô] & v).Select
Selection.Delete Shift:=xlUp
Else
v = v + 1
End If
Next v
End Sub
Sub ApagarCabeçalho()
Dim v As Long
For v = 1 To 66000
If (Not (IsNumeric(ActiveSheet.Range([Ô]A[Ô] & v)))) Or IsEmpty(ActiveSheet.Range([Ô]A[Ô] & v)) Then
Range(v & [Ô]:[Ô] & v).Select
Selection.Delete Shift:=xlUp
Else
v = v + 1
End If
Next v
End Sub
Essa macro, apaga linhas que não contem numeros
Faça seu login para responder