よねさんのWordとExcelの小部屋 のHomeへ戻る

条件を満たす行を削除する:Excel VBA入門


スポンサードリンク

ループで削除する   Topへ

不都合なコードの例

行を削除するコードの例

配列を利用して削除する

空白行を削除する

  1. 空白セルの行を削除する場合は、条件を Cells(i, 1).Value ="" とします。
    ここでは、A列のセルの値="" としていますので、数式で""が返されているセルも削除対象となります。
    Sub test0b()
     Dim lRow As Long
     Dim i As Long
      lRow = Cells(Rows.Count, 1).End(xlUp).Row
      Application.ScreenUpdating = False
      For i = lRow To 2 Step -1
        If Cells(i, 1).Value ="" Then
          Range(i & ":" & i).Delete
        End If
      Next i
      Application.ScreenUpdating = True
    End Sub
  2. 空白セルの判定をVarType(Cells(i, 1)) = vbEmptyとすると、"" が入っているセルは削除されません。
    Sub test0c()
     Dim lRow As Long
     Dim i As Long
      lRow = Cells(Rows.Count, 1).End(xlUp).Row
      Application.ScreenUpdating = False
      For i = lRow To 2 Step -1
         If VarType(Cells(i, 1)) = vbEmpty Then
          Range(i & ":" & i).Delete
        End If
      Next i
      Application.ScreenUpdating = True
    End Sub

スポンサードリンク



よねさんのWordとExcelの小部屋Excel(エクセル) VBA入門:目次|条件を満たす行を削除する

PageViewCounter
 Counter
 Since2006/2/27