Sub 循环()
    AAA = Range("C2")
    Dim i As Long
    Dim times As Long
    times = AAA
    'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)
    For i = 1 To times
        Call 过滤一行
        If Range("完成标志") = "完成" Then Exit For  '如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出
        'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For       '如果某列出现"完成"内容则退出循环
    Next i
End Sub

Sub 循环()
    AAA = Range("C2")
    Dim i As Long
    Dim times As Long
    times = AAA
    'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)
    For i = 1 To times
        Call 过滤一行
        If Range("完成标志") = "完成" Then Exit For  '如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出
        'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For       '如果某列出现"完成"内容则退出循环
    Next i
End Sub