在依赖于VBA的值列表中编写重复代码的最佳方法

Sub GenerateValueList()
    Dim values() As Variant
    Dim i As Integer
    
    ' 定义值列表
    values = Array("Value1", "Value2", "Value3", "Value4", "Value5")
    
    ' 循环输出值列表
    For i = LBound(values) To UBound(values)
        Debug.Print values(i)
    Next i
End Sub

Sub GenerateValueList()
    Dim values() As Variant
    Dim i As Integer
    
    ' 定义值列表
    values = GetValues()
    
    ' 循环输出值列表
    For i = LBound(values) To UBound(values)
        Debug.Print values(i)
    Next i
End Sub

Function GetValues() As Variant
    ' 返回值列表
    GetValues = Array("Value1", "Value2", "Value3", "Value4", "Value5")
End Function