Eu tenho um documento de texto com delimitador ";".
Importei os valores para um arquivo do Excel. Alguns dos campos têm valores em branco apenas com espaço único.
Eu tentei o código abaixo para excluir célula em branco, mas ele não escolhe, pois há um espaço nas células.
Como faço para remover a linha inteira com as células em branco com espaço único via macros?
Respostas:
1 para resposta № 1Veja o código por exemplo :)
Sub DeleteRowIfSpace()
For Each Sht In ActiveWorkbook.Worksheets
Set rng = Sht.UsedRange
Set MyRange = rng
For Each mycol In MyRange.Columns
For Each mycell In mycol.Cells
If mycell.Value = " " Then
mycell.EntireRow.Delete
End If
Next
Next
Next
End Sub
Esse código percorre todas as planilhas em uma pasta de trabalho procurando "" e exclui a linha.