空白行を削除し詰める : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBA シートコード

コマンドボタンクリックイベント

Private Sub CommandButton1_Click()
    Dim toprow As Long
    Dim bottomrow As Long
    
    '終了する行
    toprow = 8
    '開始する行
    bottomrow = 30
    
    For i = bottomrow To toprow Step -1
        If ActiveSheet.Cells(i, 1) = "" Then
            'A列が空白なら行削除
            Application.Rows(i).Delete
        End If
    Next
End Sub

スポンサーリンク


Excel実行結果

実行前
実行前のシート

実行後、空白が削除され詰められている
実行後のシート

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved