Изтрийте реда с клетки, състоящи се само от едно отделно пространство - excel, vba, excel-vba

Имам текстов документ с разделител ";".

Импортирах стойностите в Excel файл. Някои полета имат празни стойности само с едно пространство.

Опитах се в следващия код да изтриете празната клетка, но тя не избира, тъй като в клетките има място.

Как да премахна целия ред с празните клетки с едно пространство чрез макроси?

Отговори:

Вижте кода например :)

 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

Този код преминава през всички листове в работна книга, която търси "" и изтрива реда.