vba遍历名称列表并执行函数。在第二个循环中，从最后一个循环结束的地方开始

Sub TraverseNameList()
    Dim names() As Variant
    Dim i As Integer
    
    ' 假设名称列表存储在一个数组中
    names = Array("Name1", "Name2", "Name3", "Name4", "Name5")
    
    ' 正序循环
    For i = LBound(names) To UBound(names)
        Call YourFunction(names(i))
    Next i
    
    ' 倒序循环
    For i = UBound(names) To LBound(names) Step -1
        Call YourFunction(names(i))
    Next i
End Sub

Function YourFunction(name As String)
    ' 在这里执行你的函数逻辑
    ' 可以根据名称执行不同的操作
    ' 例如：
    ' If name = "Name1" Then
    '     ' 执行某些操作
    ' ElseIf name = "Name2" Then
    '     ' 执行其他操作
    ' End If
End Function