Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


32123 / 76734 ←次へ | 前へ→

【49850】Re:行の自動削除できますか?
回答  Kein  - 07/6/24(日) 22:59 -

引用なし
パスワード
   値が無いところは 0 と考えればいいので

Sub Del_R2()
  On Error Resume Next
  With Range("A1", Range("A65536").End(xlUp)).Offset(, 255)
   .Formula = "=IF($A1<3,1)"
   .SpecialCells(3, 1).EntireRow.Delete xlShiftUp
   .ClearContents
  End With
End Sub

ただし、もし
>"数値なし"
の意味が文字列を入力したセルも含む、ということなら数式を

=IF(OR(ISTEXT($A1),$A1<3),1)

と、変更すれば良いでしょう。
4 hits

【49773】行の自動削除できますか? 無頼斎 07/6/21(木) 14:35 質問
【49775】Re:行の自動削除できますか? マクロマン 07/6/21(木) 15:02 発言
【49781】Re:行の自動削除できますか? Kein 07/6/21(木) 16:17 回答
【49849】Re:行の自動削除できますか? 無頼斎 07/6/24(日) 22:22 発言
【49850】Re:行の自動削除できますか? Kein 07/6/24(日) 22:59 回答
【49857】Re:行の自動削除できますか? 無頼斎 07/6/25(月) 12:22 発言
【49867】Re:行の自動削除できますか? Kein 07/6/26(火) 0:19 発言
【49871】Re:行の自動削除できますか? 無頼斎 07/6/26(火) 8:51 発言
【49854】Re:行の自動削除できますか? Mariko 07/6/25(月) 9:38 発言

32123 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free