wps vba for循环输出符合条件的数据到单元格

WPS VBA (Visual Basic for Applications) 的 For 循环用于遍历一个范围内的数据，并可以根据条件选择性地将满足条件的数据输出到指定的单元格。以下是创建一个基本的 For 循环示例，它会检查一列数据并把大于某个值的项输出到另一个单元格：

Sub OutputDataToCell()
    Dim rngInput As Range ' 输入数据的范围
    Set rngInput = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10") ' 替换为你实际的数据范围

    Dim rngOutput As Range ' 输出结果的单元格
    Set rngOutput = ThisWorkbook.Worksheets("Sheet1").Cells(1, 2) ' 输出开始位置，例如B1

    Dim i As Long
    For i = 1 To rngInput.Rows.Count
        IfrngInput.Cells(i, 1).Value > 5 ' 指定的条件，如数值大于5
            rngOutput.Offset(i - 1, 0).Value = rngInput.Cells(i, 1).Value ' 将满足条件的值输出
        End If
    Next i
End Sub

在这个例子中，`For`循环从`rngInput`的第一行开始，逐行检查值是否大于5，如果满足则将该值写入`rngOutput`下方的一个新单元格。