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

可以使用以下VBA代码来判断并修改FormatData工作表中A18:A21区域的数值：

Sub ModifyValues()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    Set ws = ThisWorkbook.Worksheets("FormatData")
    Set rng = ws.Range("A18:A21")
    
    For Each cell In rng
        If cell.Value > 100 Then
            cell.Value = 0
        End If
    Next cell
End Sub

将上述代码复制到VBA编辑器中的模块中，然后运行该宏即可。它将遍历A18:A21区域中的每个单元格，如果其数值大于100，则将其修改为0。