VBA判断A18到A21单元格数值不是类似0或10的数值

您可以使用以下VBA代码来判断A18到A21单元格的数值是否不类似于0或以10开头的数值：

Sub CheckValues()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A18:A21") '要检查的单元格范围
    
    For Each cell In rng
        If Not (cell.Value Like "0" Or cell.Value Like "10*") Then
            '如果数值不类似于0或以10开头的数值
            '执行您想要的操作
            MsgBox "单元格 " & cell.Address & " 的数值不类似于0或以10开头的数值"
        End If
    Next cell
End Sub

您可以将代码放置在VBA编辑器中的模块中，并运行CheckValues子过程来执行此代码。如果A18到A21单元格中的数值不类似于0或以10开头的数值，则会弹出消息框提示相应的单元格地址