vba,ws1中每有一个满足条件的数，ws2的B3则加1

在VBA (Visual Basic for Applications) 中，如果你想要在工作表 WS1 的某个范围内检查数值，并基于这个检查向工作表 WS2 的 B3 单元格添加计数，你可以创建一个宏来完成此操作。以下是一个简单的步骤描述：

1. 打开一个新的模块（在VBA编辑器里通常是 "插入" 菜单下的 "模块" 选项）。

2. 编写 VBA 代码，如下所示：

Sub IncrementCounter()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rng1 As Range
    Dim cellValue As Variant
    Dim counter As Integer

    ' 设置工作表引用
    Set ws1 = ThisWorkbook.Sheets("WS1") ' 更改为你实际的工作表名称
    Set ws2 = ThisWorkbook.Sheets("WS2") ' 同上

    ' 定义范围，这里假设你在 A1到A10之间查找
    Set rng1 = ws1.Range("A:A") 

    ' 初始化计数器
    counter = 0

    ' 遍历 WS1 的范围
    For Each cellValue In rng1
        If cellValue >= SomeCondition ' 将 SomeCondition 替换为你需要的条件（比如大于0）
            counter = counter + 1
        End If
    Next cellValue
    
    ' 如果找到符合条件的数，增加 WS2 的 B3
    If counter > 0 Then
        ws2.Cells(3, 2).Value = counter ' 修改为 B3，如果是其他位置请替换相应坐标
    End If
End Sub

记得将 `SomeCondition` 和实际工作表名称替换为你的需求。运行此宏后，每次 WS1 中有满足条件的数，WS2 的 B3 就会加一。