В тази статия ще създадем макрос за изтриване на непълни записи, които съдържат празни клетки.
Суровите данни се състоят от някои примерни данни, които включват име, възраст и пол. Той също така съдържа някои празни клетки.
Искаме да премахнем тези записи, които съдържат празни клетки.
Логично обяснение
Създадохме макрос „BlankRowDeletion“, за да изтрием непълни записи. Той търси и избира празни клетки и след това изтрива целия ред, който съдържа празна клетка.
Обяснение на кода
Задайте Rng = диапазон ("A9: C" & LastRow)
Горният код се използва за създаване на обект на диапазон за дадените данни.
Rng.SpecialCells (xlCellTypeBlanks) .Изберете
Горният код се използва за избор на празни клетки в определения диапазон.
Selection.EntireRow.Delete
Горният код се използва за изтриване на целия ред за избраната клетка.
Моля, следвайте кода по -долу
Опция Explicit Sub BlankRowDeletion () 'Деклариране на променливи Dim LastRow As Long Dim Rng As Range' Получаване на номер на ред от последната клетка LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Избиране на целия набор от данни Rng = Range ("A9 : C "& LastRow) 'Избиране на празни клетки Rng.SpecialCells (xlCellTypeBlanks). Изберете" Изтриване на пълния избор на ред. EntireRow.Delete Range ("A9"). Изберете End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта