在VBA中,可以使用For Each循环来遍历列表并对每个项目运行代码。以下是一个示例代码:
Sub IterateList()
Dim myList As Variant
Dim item As Variant
' 将列表存储在数组中
myList = Array("Item 1", "Item 2", "Item 3", "Item 4")
' 使用For Each循环遍历列表
For Each item In myList
' 在此处添加要运行的代码
' 例如,打印当前项目
Debug.Print item
Next item
End Sub
在上面的示例中,我们首先定义一个变量myList
并将列表存储在一个数组中。然后,我们使用For Each循环来迭代数组中的每个项目。在循环中,可以添加要运行的代码。在这个示例中,我们使用Debug.Print
语句来打印当前项目。
您可以根据具体需求修改代码来执行特定的操作。