Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Excluir linhas em b...
 
Notifications
Clear all

Excluir linhas em branco

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
881 Visualizações
RSS
 valdecirrk
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

Utilizo est comando abaixo, mas quando é executado chega a travar o pc, e demora para fazer a exclusão de linhas em branco.
Entre 50 linhas se uma deslas na coluna B, estiver vazia ele apaga, mas ou trava ou demora demais.
esta certa, ou tem outra alternativa.

Sub organizar_linhas()
Sheets("PAME").Range("B18:B68").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 
Postado : 04/06/2014 5:38 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Bom Dia!

Veja se esse código trabalha mais rápido:

Sub ExcluirLinhas()
    Dim i As Long
    For i = 68 To 1 Step -1
        If Sheets("PAME").Range("B" & i).Value = "" Then
            Rows(i & ":" & i).Select
            Selection.Delete Shift:=xlUp
        End If
    Next
    Range("A1").Select
End Sub
 
Postado : 04/06/2014 8:46 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Talvez uma outra forma.

Sub AleVBA_11958()
    With Sheet1.Range("B1:B1000")
        .Value = .Value
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

Att

 
Postado : 04/06/2014 8:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico