Usuń wiersz z komórkami składającymi się tylko z jednego spacji - excel, vba, excel-vba

Mam dokument tekstowy z ogranicznikiem „;”.

Zaimportowałem wartości do pliku Excel. Niektóre pola mają puste wartości tylko z pojedynczym odstępem.

Próbowałem poniższego kodu, aby usunąć pustą komórkę, ale nie wybiera, ponieważ w komórkach jest miejsce.

Jak usunąć cały wiersz z pustymi komórkami z pojedynczym odstępem za pomocą makr?

Odpowiedzi:

Zobacz na przykład kod :)

 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

Ten kod przechodzi przez wszystkie arkusze w skoroszycie, szukając „” i usuwa wiersz.