如何根据Excel工作表中的列数创建变量

Question

以下是获取上次使用的列

的代码

Dim lastColumn As Integer

 lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

返回假设6。我的用例基于返回值我想在vba中创建no变量。怎么做请帮助

Answer 1

您应该定义1个长数据类型的数组变量。

例如。

Sub test()

' Get last column number
Dim lastColumn As Integer
lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

' Create a long data type array with limit equal last column number
Dim arrColVars(lastColumn) as Long

' Perform operations or assignment on variables
' arrColVars(0) = 123
' arrColVars(1) = 456
' ...
' arrColVars(n) = 789

End Sub

注意：

• 声明但未定义的所有数组索引默认值为零 （0）。
• 如果引用超出指定数组限制的数组索引，则为 将收到错误＆＃39;下标超出范围＆＃39;。