在 Excel 2003 中创建要循环的可变大小的组的好方法是什么？

Question

我有一个针对很多项目运行的程序，跳过某些不符合标准的项目。 然而，然后我会返回并为一些在第一次传递中错过的人运行它。 目前，我通过为每个人手动重新运行该过程来实现此目的，但理想情况下希望有一个更方便的解决方案。

我老板建议的可能有效的方法是创建一个列表（如数据 -> 列表），其中包含相关项目的名称，然后迭代该列表。 可悲的是，我的帮助文件 fu 似乎让我失望了 - 我不知道我是否只是不知道要寻找什么，或者什么。

运行“生成宏”命令显示，首先创建列表的 VBA 的结构如下： ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1"), , xlYes).Name = "List1"

不幸的是，我似乎不知道如何处理结果列表。 我希望按照“

For Each ListItem in List 
    Run the procedure on the text in ListItem.Value
Next ListItem

有什么建议吗？”的方式进行循环？

Answer 1

也许是这样的：

Dim Counter 'module level '

Sub RunSomeProc()
    Counter = 0
    '1st test '
    SomeProc

    '2nd Test skipped items'
    For Each c In Range("c1:c" & Counter)
        SomeProc
    Next

End Sub

Sub SomeProc()
For Each c In Range("NamedRange1")
    If SomeTest=SomeVal Then
        'Write to 2nd test range '
        Range("C1").Offset(Counter, 0) = c 'Value of cell'
        Counter = Counter + 1
    End If
Next
End Sub

Answer 2

您可以通过以下方式迭代它：

set rgList = Range("name_of_range")    
For i = 1 To rgList.Rows.Count
  ' Do something using rgList.Cells(i, 1)
  RunProcedure(rgList.Cells(i, 1))
Next i

我在这里假设范围位于列上； 如果它是连续的，您应该对第二个索引进行迭代。
当然，可能有更好的方法来迭代范围； 我在一个小脚本上使用这个，并且工作得很好。

Answer 3

我最终的解决方案是将列表作为外部数据查询导入，然后我很好地命名并作为范围引用。 所以：

For each item in Sheets("Sheet1").Range("Range1")
    Do stuff
Next item