变量是否可以通过其他方式动态命名和赋值？
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字符串
但是当我尝试运行它时，我看到这个错误：
编译错误：
需要常量表达式
1条答案
按热度按时间tvmytwxo1#
不，你不能这样做。你可以做的是创建一个适当大小的数组，为你需要的每个变量都有一个点。