VBA把表中的小于等于0的值清空

以下是一个示例代码，可以清空工作表中所有小于等于0的单元格：

Sub clearNegativeValues()

    Dim cell As Range
    
    For Each cell In ActiveSheet.UsedRange.Cells
        If cell.Value <= 0 Then
            cell.ClearContents
        End If
    Next cell

End Sub

这个代码使用了一个 For Each 循环来遍历工作表中所有使用过的单元格。对于每个单元格，如果它的值小于等于0，则使用 ClearContents 方法清空该单元格的内容。注意，ClearContents 方法会清空单元格中的值、格式和注释。如果你只想清空值而不是格式和注释，可以使用 Clear 方法。