在 for 循环中动态命名和创建变量 (VBA)

Question

可以用其他方式在 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)) = col(Cells(1, i)).Column
    Next i
    
End Sub

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

编译错误：

需要持续表达

Answer 1

不，你不能这样做。您可以做的是创建一个适当大小的数组，并为您需要的每个变量留出一个位置。