使用for each遍历三列，其中第一列和第二列的单元格满足特定条件，然后求和这些要求的单元格

在VBA中，你可以使用`For Each`循环结合`If`条件语句来遍历指定的三列并满足特定条件后再进行求和。这里假设我们有三个变量分别对应需要遍历的三列，例如`ColumnA`, `ColumnB`, 和 `ColumnC`。以下是一个示例：

Sub SumCellsUnderCondition()
    Dim ws As Worksheet ' 工作表对象
    Dim rng As Range ' 需遍历的区域
    Dim sum As Double ' 求和变量
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你实际的工作表名

    ' 遍历三列 (假设列A,B,C)
    For Each rng In ws.Range("A1").CurrentRegion.Columns('A:B') ' 第一列和第二列
        If rng.Cells.Value >= 0 Then ' 设定你的条件，这里是大于等于0
            sum = sum + rng.Cells.Value
        End If
    Next rng

    ' 如果有任何符合条件的单元格进行了求和
    If sum <> 0 Then
        Debug.Print "Sum of cells meeting condition is: " & sum
    Else
        Debug.Print "No cells met the condition."
    End If
End Sub

这个脚本会在满足条件（比如大于等于0）的情况下，累加第一列和第二列的值。最后输出满足条件的单元格总和。