2

数式を使用して見つかった値を持つ行を削除するコードを作成しようとしています。問題は、他のすべての行が#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

ヘルプやヒントをいただければ幸いです。

4

3 に答える 3