VBA判断A18A21区域数值是否存在大于100数值如果存在则将其数值修改为0

您可以使用以下VBA代码来判断A18:A21区域的数值是否存在大于100的数值，并将其数值修改为0：

Sub ModifyValues()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A18:A21") '设置要检查的区域
    
    For Each cell In rng
        If cell.Value > 100 Then
            cell.Value = 0
        End If
    Next cell
End Sub

请将此代码复制并粘贴到您的VBA编辑器中（按下ALT + F11打开VBA编辑器），然后运行该代码即可。它将遍历A18:A21区域中的每个单元格，如果单元格的值大于100，则将其值修改为0。