Microsoft ExcelでVBAを使用して、特定の列内の空白のセルを持つ行を削除
この記事では、空白のセルを含む不完全なレコードを削除するマクロを作成します。
生データは、名前、年齢、性別などのサンプルデータで構成されています。また、いくつかの空白のセルが含まれています。
空白のセルを含むレコードを削除します。
ロジックの説明
不完全なレコードを削除するための「BlankRowDeletion」マクロを作成しました。
空白のセルを検索して選択し、空白のセルを含む行全体を削除します。
コードの説明
Set 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]までご連絡ください