Sub 条件を満たす行を削除() 'E列が男の行を削除する '変数宣言 Dim 最終行 As Long '変数宣言 Dim 行番号 As Long 'A列の最終行まで 最終行 = Cells(Rows.Count, 1).End(xlUp).Row '画面を止める Application.ScreenUpdating = False '最終行から2行目まで…