[VBA] 特定の範囲外の数値のセルを削除

Question

前提・実現したいこと

エクセルVBAで、
セル(A列i行)の数値が100~110(例)の範囲外のとき、セル(A列i行）（B列i行）を削除するマクロを組みたいです。

以下のコードだと、
コンパイルエラー　識別子:subというエラー or Excelがフリーズします。

改善策を教えていただきたいです。

該当のソースコード

Dim i
For i = 1 To Cells(Rows.Count, 1).End(xlDown).Row
If Cells(i, "A") > 110 Or Cells(i, "A") < 100 Then
Cells(i, "A").Delete
Cells(i, "B").Delete
End If
Next i
End Sub

Answer 1

For i = 1 To Cells(Rows.Count, 1).End(xlDown).Row
→ For i = Cells(Rows.Count, 1).End(xlUp).Row to 1 step -1　
にしてください。

・End(xlDown)では最終行（1048576行目）を指定することになる
・If文の条件から、空白のセル全てに反応する

ので、100万回*2以上のDeleteを行っていると思われます。辛抱強く待ってればそのうち終わるかもしれませんが、その前にフリーズしているようですね。

加えて、Deleteする際は下から上にループを書かないと、Deleteのたびに行がズレるので想定通りの動きをしなくなります。

Comments

[mmp]

ありがとうございます！フリーズせずに実行できました。

＞End(xlDown)では最終行（1048576行目）を指定することになる
　「文字が入力されているセルの中の最終行」を指定しているつもりでいました…。勉強になります。

[Usirow]

その場合はCells(1,1).End(xlDown)などになりますね。
xlDownは、シート上で「Ctrl + ↓」の操作を行うことと同義、xlUpは「Ctrl + ↑」の操作と同義になります。
ですので、Cells(Rows.Count, 1).End(xlUp) = 「シートの最終行から、Ctrl + ↑を行う」＝「値が入力されている範囲の最終行」という指定の方法を一般に行います。