Удаление строк с пустыми клетками в определенной колонке с использованием VBA в Microsoft Excel
В этой статье мы создадим макрос для удаления неполных записей, содержащих пустые ячейки.
Необработанные данные состоят из некоторых образцов данных, включая имя, возраст и пол. Он также содержит несколько пустых ячеек.
Мы хотим удалить те записи, которые содержат пустые ячейки.
Логическое объяснение
Мы создали макрос «BlankRowDeletion» для удаления неполных записей.
Он ищет и выбирает пустые ячейки, а затем удаляет всю строку, содержащую пустую ячейку.
Объяснение кода
Установить Rng = Range («A9: C» & LastRow)
Приведенный выше код используется для создания объекта диапазона для заданных данных.
Rng.SpecialCells (xlCellTypeBlanks) .Select Приведенный выше код используется для выбора пустых ячеек в указанном диапазоне.
Selection.EntireRow.Delete Приведенный выше код используется для удаления всей строки для выбранной ячейки.
Пожалуйста, введите код ниже
Option Explicit
Sub BlankRowDeletion()
'Declaring variables
Dim LastRow As Long
Dim Rng As Range
'Getting row number of last cell
LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row
'Selecting all data
Set Rng = Range("A9:C" & LastRow)
'Selecting Blank cells
Rng.SpecialCells(xlCellTypeBlanks).Select
'Deleting complete row
Selection.EntireRow.Delete
Range("A9").Select
End Sub
Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.
Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]