- 587 名前：デフォルトの名無しさん [2008/06/15(日) 09:16:02 ]
- 親切に答えてくれるスレに頼ってスマソ。。。
拙者未熟者なのでVBで助けてくだされ
A1の値を4で割ったとき0にならなければ4行目を削除したいのだが
どうしてもこれを実行すると4行目以降のセルが何故かアクティブになってしもう・・・・
あと何回も実行できたら困るので1回実行したら出来ない方法はないですか？
本当スミマソン
If Range("A1").Value Mod 4 <> 0 Then
Rows("4:4").Select
Selection.Delete Shift:=xlUp
End If
