Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,多维数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的方法来写程序吧.使用excel vba数组赋值的主要目的是为了提高程序运行
excel vba数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,多维数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的方法来写程序吧.使用excel vba数组赋值的主要目的是为了提高程序运行效
1、打开一个Excel的文件,在表格中输入简单的表格,比如学生身高表格,如下图所示.2、接着,在表格中输入一维数组的说明文字,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,如下图所示.3、然后,在
参考下面的代码,和你的问题有些像:Sub Test() Dim Arr(1 To 9) As Integer '定义一个下标为1,上标为9的整型数组 Dim Brr(9) As String ''定义一个下标为0,上标为9的整型数组.这里的默认下标可以在模块中用 option base来声明数组下标的缺
dim i as integerfor i=3 to 14 range(chr(asc(＂A＂)+i-4 ) & ＂219＂)=range(＂AE＂ & i)nextfor i=4 to 14 range(chr(asc(＂A＂)+i-4 ) & ＂218＂)=range(＂AF＂ & i)next
用cells(row,column)比用range灵活多了,a(i) = Range(＂a＂ & i)可改成a(i) = cells(1,5+i) 'E列为第5列
EXCEL表的单元格区域是一个二维数组dim arrarr=Sheet3.Range(＂D7:D9＂)'这时的arr得到的是二维数组'你要转换成1维数组,先声明一个动态数组再重定义为1维数组dim brr()redim brr(1 to ubound(arr))'再重新将二维转一维for i = 1 to ubound(arr) brr(i)=arr(i,1)next'如果你是要间隔写进去for i = 1 to ubound(arr) step 2 brr(i)=arr(i,1)next
问题出在你的Range(Cells(2, 1), Cells(7, 5))cells里面,当你不在人物总表的时候,cells(,2,1)就是你其它表里的值了.这样修改就正常了.Sub aaa() Dim 人物签() As Variant Dim a 人物签 = Sheets(＂人物总表＂).Range(Sheets(＂人物总表＂).Cells(2, 1), Sheets(＂人物总表＂).Cells(7, 5)).Value a = 人物签(1, 5) Debug.Print aEnd Sub
Dim i as integer, aaa(9) as integeraaa=array{1, 6, 8, 18, 19, 20, 25, 62, 63, 64}
很简单的,你只距成功差一点 Dim ma ma = Array(37, 11, 3, 0, 1, 5, 31, 10, 35, 16) MsgBox ma(0) 这样试试看!!!