空白のセルのある行を削除する＠エクセルマクロＶＢＡ

エクセルのちょっとしたテクニックを紹介します。

表などでデータが入力されていないセルが点在していて、その行全体を削除したいという場合、手作業では大変ですよね。ＶＢＡであらかじめコードを書いておけば、楽に処理できますよ。


'**********************************************
'アクティブセル列で空欄の場合、行全体を削除
'**********************************************
Sub Test12()
　　Dim Clmn As Long

　　Clmn = ActiveCell.Column
　　Application.ScreenUpdating = False

　　Columns(Clmn).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


上記のコードを使用した場合でも、空白のセルが残ることがあります。その場合は、残ったセルを調べてみてください。半角スペースや全角スペースが入っていることがあります。入っていたスペースを削除して再度上記のコードを実行すれば削除されます。