在 for 循环 （VBA） 中动态命名和创建变量

问：

是否可以以任何其他方式在 VBA 中动态命名和分配变量？

Sub variables()
    
    Dim lastCol As Long
    lastCol = Sheet1.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookAt:=xlWhole).Column
    
    Dim i As Long
    For i = 1 To lastCol
        Dim colIndex(Cells(1, i).Value) As Long
        colIndex(Cells(1, i)) = Cells(1, i).Column
    Next i
    
End Sub

但是当我尝试运行它时，我看到此错误：

编译错误：

需要常量表达式