VBA写符合双条件然后统计数量

在VBA（Visual Basic for Applications）中，如果你想要对满足两个特定条件的数据进行计数，你可以使用For...Next循环结合If语句来实现。这里是一个简单的示例：

Sub CountCellsBasedOnTwoConditions()
    Dim rng As Range, count As Long
    ' 设置范围，假设你是在Sheet1的A1:B10区域查找
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    
    ' 双重条件：首先判断列A是否满足条件1，如果满足再判断列B是否满足条件2
    For Each cell In rng
        If cell.Value ' 替换为你希望检查的第一个条件
            Then
                If cell.Offset(0, 1).Value ' 这里假设第二个条件在相邻单元格
                    Then
                        count = count + 1 ' 每找到符合条件的行，计数加一
                    End If
                End If
            End If
    Next cell
    
    MsgBox "满足两个条件的行数共有 " & count & " 行"
End Sub

在这个例子中，你需要将`cell.Value` 和 `cell.Offset(0, 1).Value` 部分替换为你的实际条件表达式。这个宏会遍历指定范围内的每个单元格，检查其是否同时满足两部分条件。