Фильтрация по пробелам в VBA

Question

Может ли кто-нибудь дать мне некоторое представление о том, как фильтровать/удалять пробелы с помощью кода VBA? По какой-то причине, когда я записываю макрос для этого, он не позволяет некоторым моим пользовательским функциям, построенным с использованием VBA, сохранять свои значения. Благодарю.

Answer 1

Приведенный ниже код удалит строки, имеющие пробел в выбранном столбце. В приведенном ниже коде предполагается, что второй столбец в ваших данных тестируется на пробелы. Сообщите нам, если вам нужна дополнительная помощь.

Sub DeleteBlanks() 
    Dim rDataToProcess As Range 

    Set rDataToProcess = Sheet1.Range("A1").CurrentRegion 

    'Field in the below method refers to the column that is being filtered, so the second colum 
    rDataToProcess.AutoFilter field:=2, Criteria1:="" 
    rDataToProcess.Offset(1).Resize(rDataToProcess.Rows.Count).EntireRow.Delete 

    Sheet1.AutoFilterMode = False 

End Sub 

Answer 2

Альтернативы для удаления клеток, которые являются пустыми, чтобы установить диапазон и использовать Range([your range]).SpecialCells(xlCellTypeBlanks).Delete

редактирования: Если вы хотите удалить всю строку, Range([your range]).SpecialCells(xlCellTypeBlanks).EntireRow.Delete