空のセルのみを選択して、xlCellTypeBlanksを渡すことができます。 以下に示すように、例を見て、VBA を使用してすべての空白行を削除してみましょう。 # VBA Sub RemoveBlankRows() Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub ...
空白行・空白列の削除この例では、行全体が空白の場合、その行を削除します。Sub DeleteRows_EntireRowBlank() Dim cell As Range For Each cell In Range("b2:b20") If Application.WorksheetFunction.CountA(cell.EntireRow) = 0 Then cell.EntireRow.Delete End If Next cell End Sub...
データセットから空白行を削除したいときにまず思い浮かぶ方法は、単にデータをソートすることです。これにより、空白行はデータの一番下に移動し、「削除」されます。しかし、空白行を削除したいが、データをソートしたくない場合はどうすればよいのでしょうか。VBAを使用すれば可能です。