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
894 Visualizações
RSS
valdecirrk
 valdecirrk
(@valdecirrk)
Posts: 230
Estimable 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 04/06/2014 8:46 am
Fernando Fernandes
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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