VBA 对数组赋值的时候，等号两边的数组必须是相同类型 你 dim 了一个 integer 类型的数组 然后 array() 语句产生的是 variant 类型的数组，所以就出错了 你把 as integer 删掉即可 btw：VBA的integer类型是16位整数，long类型才是32位整数，所以一般要使用整数的时候，最好 dim as long ，没有特别...
range("B2:BO6")B2,BO6 是2个单元格 ，不是一个范围
Sub test() Dim arr(), brr(), crr() Dim iRow As Integer Dim iCol As Integer arr = Sheet1.UsedRange.Value '从Excel表给数组赋值Stop iRow = UBound(arr, 1) iCol = UBound(arr, 2) ReDim brr(1 To iCol, 1 To iRow) '重定义数组 For i = 1 To iRow ...
VBA数组赋值方式：字符串数组的定义：Dim arr(1 to 3) as string 如此定义，但是不能直接给数组赋值 如果想直接给数组直接赋值，需要如下操作：Dim arr() as Variant arr=Array("a","b","c")赋值格式：例如，给变量a赋值一个数为12，则格式为：a = 12 [注意：变量（即a）只能是一字母，而...
vb,vba等在二维数组声明时,都不能直接赋值.对于excel 有种方法可以得到一个二维数组,并简单的赋值,对于如 arrA= range("A1:B12").value
呵呵，需要加一个转置函数 Application.Transpose(ActiveSheet.Range("a1:a10").Value )sub abc()Dim abcd() As Variant abcd = Application.Transpose(ActiveSheet.Range("a1:a10").Value)MsgBox UBound(abcd)For i = 1 To UBound(abcd)MsgBox (abcd(i))Next end sub ...
5 然后，在代码窗口中输入VBA语句，比如输入定义一维数组的语句，并给一维数组赋值，如下图所示。6 接着，在代码窗口中，输入一维数组给单元格赋值的VBA语句，如下图所示。7 最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序的一维数组，并输出到身高的单元格中，显示出数据了，如下...
如果不特别处理，数组的下标一般都是从0开始，arr1(5)包含6个元素。如果不习惯的话，可以在模块上方添加语句：Option Base 1，强制下标从1开始，这样arr1(5)就包含5个元素。在我们把工作表单元格区域整体赋值给数组的时候，下标是从1开始的。获取数组的下标:1、LBound(arr,1)，取得数组的最小行标，这里1可以...
cells当前选中的range的成员，所以如果要用cells,一定要先用选中表，在选中一个RANGE，如果未指定range，则用整个表的单元格做父对象 所以像题目中这样的用法，如果sheet指定的是错误的，则range的结果是错误的。可以在前面加一句 sheets("人物总表").select ...
Width 不能作为变量，修改一下就可以了。