数式を使用して見つかった値を持つ行を削除するコードを作成しようとしています。問題は、他のすべての行が#VALUE!
であり、レポートのセットアップのために変更できないことです。#VALUE!
最後に、.75 未満の値を持つすべての行と、.75 未満の値を持つすべての行を削除したいと思いますColumn H
。
私が試したコードは次のとおりです。
Private Sub CommandButton1_Click()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("H1:H2000"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) < .75 Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete
End Sub
ヘルプやヒントをいただければ幸いです。