Excel ワークシートから空の行を削除する

Sub DeleteEmptyRows()
    SelectedRange = Selection.Rows.Count
    ActiveCell.Offset(0, 0).Select
    For i = 1 To SelectedRange
        If ActiveCell.Value = "" Then
            Selection.EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Next i
End Sub

Sub DeleteEmptyRows()

SelectedRange = Selection.Rows.Count

ActiveCell.Offset(0, 0).Select

For i = 1 To SelectedRange

If ActiveCell.Value = "" Then

Selection.EntireRow.Delete

Else

ActiveCell.Offset(1, 0).Select

End If

Next i

End Sub

セル列を選択してからこのマクロを実行すると、選択した範囲の列から、空のセルがある行が削除されます。

Excel ワークシートから空の行を削除する

いいね:

コメント

共有:

いいね:

コメント