vba数组怎么赋值?
1、打开一个Excel的文件，在表格中输入简单的表格，比如学生身高表格，如下图所示。
2、接着，在表格中输入一维数组的说明文字，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件，如下图所示。
3、然后，在表格中绘制出按钮控件，并修改控件名称，比如使用一维数组的名称，如下图所示。
4、接着，选择按钮控件，并鼠标左键单击【查看代码】按钮，如下图所示。
5、然后，在代码窗口中输入VBA语句，比如输入定义一维数组的语句，并给一维数组赋值，如下图所示。
6、接着，在代码窗口中，输入一维数组给单元格赋值的VBA语句，如下图所示。
7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序的一维数组，并输出到身高的单元格中，显示出数据了，如下图所示。完成效果图。
1、打开一个Excel的文件，在表格中输入简单的表格，比如学生身高表格，如下图所示。
2、接着，在表格中输入一维数组的说明文字，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件，如下图所示。
3、然后，在表格中绘制出按钮控件，并修改控件名称，比如使用一维数组的名称，如下图所示。
4、接着，选择按钮控件，并鼠标左键单击【查看代码】按钮，如下图所示。
5、然后，在代码窗口中输入VBA语句，比如输入定义一维数组的语句，并给一维数组赋值，如下图所示。
6、接着，在代码窗口中，输入一维数组给单元格赋值的VBA语句，如下图所示。
7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序的一维数组，并输出到身高的单元格中，显示出数据了，如下图所示。完成效果图。
工具/材料：Microsoft Office Excel2016版，Excel表格。
1、首先选中Excel表格中要数组赋值的单元格内容。
2、然后在该界面中，点击“插入”里“表单控件”里“按钮”选项。
3、再者在该界面中，在表格中生成按钮控件，修改控件名称。
4、其次在该界面中，点击“查看代码”选项。
5、继续在VBA界面中，输入定义一维数组的语句。
6、然后在VBA界面中，输入给单元格赋值一维数组的语句。
7、最后在该界面中，单元格里成功显示数组赋值结果。
Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲，多维数组赋值只要沿用二维的方法即可。在将vba 数组赋值的方法之前，先说下为什么要用数组的方法来写程序吧。使用excel vba数组赋值的主要目的是为了提高程序运行效率，相信用vba编程的童鞋都遇到过程序运行过慢的问题，其中最主要的一个原因就是excel vba程序从头至尾都在操作对象。用excel vba对数组进行赋值，即是将对象的值及相关属性，全部存储到内存中，然后在内存里执行其他程序，这样速度会提高非常多。好了，下面说怎么给excel vba数组进行赋值吧EXCEL VBA一维数组赋值的方法int Arr(5)={1,2,3,4,5}说明：括号中的5是指数组长度，固定数组在最开始确定好数组长度，使内存分配好空间，免去重定义数组长度，效率会高些。如果不定义数组长度的话，后期可以使用redim来更改。EXCEL VBA二维数组赋值的方法Arr = [{"a","b"; "e","f" ;"i","j";"m" ,"n"}] Arr = Range(Sheets("文本1").Range("a1"), Sheets("文本1"). Range("a" & Cells(65536, 1).End(xlUp).Row))说明：两种赋值方法如上，一个是赋予固定值，另一个是将某区域内数值全部导入。EXCEL VBA重新定义数组的方法ReDim Preserve Arr(j)最后说下excel vba二维数组取数据上限的程序，如下，不过要先确定好你的数组是从0开始计数还是从1开始计数的，上面所讲数组赋值的例子都是从1开始计数的。
答：二维数组赋值有两种方法，
第一种方法是单元格区域装入二维数组，如：
Arr=range("a1:b19")就可以把单元格区域的值装入数组arr
第二种就是通过循环装入，一个个数值装入。例：
向二维数组写入数据和读取
Dim x As Integer, y As Integer
Dim arr(1 To 5, 1 To 4)
For x = 1 To 5
'向VBA数组中写入数据 '1、按编号(标)写入和读取 Sub t1() '写入一维数组 Dim x As Integer Dim arr(1 To 10) arr(2) = 190 arr(10) = 5End Sub Sub t2() '向二维数组写入数据和读取 Dim x As Integer, y As Integer Dim arr(1 To 5, 1 To 4) For x = 1 To 5 For y = 1 To 4 arr(x, y) = Cells(x, y)Next yNext xMsgBox arr(3, 1)End Sub '2、动态数组Sub t3()Dim arr()Dim rowrow = Sheets("sheet2").Range("a65536").End(xlUp).row - 1 ReDim arr(1 To row) For x = 1 To row arr(x) = Cells(x, 1)Next xStopEnd Sub '3、批量写入 Sub t4() '由常量数组导入Dim arrarr = Array(1, 2, 3, "a")StopEnd Sub Sub t5() '由单元格区域导入Dim arrarr = Range("a1:d5")StopEnd Sub
字符串数组的定义：
Dim arr(1 to 3) as string
如此定义，但是不能直接给数组赋值
如果想直接给数组直接赋值，需要如下操作：
Dim arr() as Variant
arr=Array("a","b","c")
赋值运算符的意思
赋值运算表达式的值也就是所赋的值。也就是说，“$a = 3”的值是 3。
数组定义为”int a[3][4];”,引用”a[0]+2”表达式
B a是数组的首地址。a[0]相当于 （a+0);a是首地址，它指向数组第一个元素，这里的第一个元素可以认为是一个一维数组，就是一行4个数字。因此对他取*得到第一行（也是第0行）的地址。然后在+2,所以就是数组第一行第2列元素的地址。因为 a[0][2]=*(*(a+0)+2);而a[0]其实等价与 ...
c++编写动态数组类 TArray,构造函数里指针数组初始化问题
\/\/ 把c中的10个元素复制到a中a.Print(); \/\/ 打印a中的元素TArray c(a); \/\/ 创建了一个与a一样的c数组b = a; \/\/ 把a的内容复制给ba.SetElem(0,6); \/\/ 把第0个元素的值重新赋值为6b.Exchange(4,2); \/\/ 交换b中第4个和第2个元素的内容b.Print(); \/\/ 打印b中的元素a.Pr...
C语言字符数组一题
语句：char ch[7]={"65ab21"}是定义一个字符数组同时给它赋值。这种用法在C语言中是允许的。C语言给字符数组赋值的方法常用的有三种，见下面讲解。这个赋值语句赋值结果如下：ch[0] = '6'; \/\/ASCII码值为54 ch[1] = '5';ch[2] = 'a';...ch[5] = '1';ch[6] = '\\0';程序运...
java构建一个数组,值从ab,ac,...az,ba,bb,...,bz,...到zz,输出该字符串...
String[][] a = new String[26][26];for (char x = 'a'; x <= 'z'; x++) { for (char y = 'a'; y <= 'z'; y++) { a[x - 'a'][y - 'a'] = "" + x + y; }}for (int i = 0; i < a.length; i++) { for (int j = 0; j < a[0...
excel里面BA列统计我需要的数组在ghijk五列里面出现的次数的公式怎么写...
A列中公式如下 =SUM(IF(A2:A19<>A1:A18,1,0))这是个数组公式，需要同时按下 Ctrl+Shift+回车 三键结束输入，其余几列仿照这个去写就行了
c语言在线答疑,求高人指导~~~谢谢了~~~
第三个：putchar(n%10+'0');n=321,n%10+'0'=’1‘；if((i=n\/10)!=0) printd(i)中，i=n\/10 的值是32，后面递归调用函数本身。3次函数调用输出的字符分别是'3'，'2'，'1'。第四个：抱歉，你给的答案是错误的。输出结果应该是abcabcabcbcabcc；原因如下：二维数组里面存的是abc...
java构建一个数组,值从ab,ac,...az,ba,bb,...,bz,...到zz,输出指定数目...
System.out.print(str[i]+ str[j] + " "); }else{ if(j +1 <= last) { System.out.print(str[i]+ str[j] + " "); } } } }}}这个可以不用数组的，不过既然你要求了，就加了一个
下面的选项中正确的赋值语句是(char a[5],*p=a;)()。 A p=“abcd...
答案是a 主要考核你对变量赋值时的对等关系；a p=“abcd”;p是字符型指针，将“abcd”的地址给了p，也就是p指向“abcd"的首地址，也就是 指向‘a'的地址；b a=“abcd”；a是字符数组的地址，不可赋值；c p=“abcd”;p是字符，不能将字符串赋给它，若是*p='a'，则正确。
C# 将字符以16进制的形式输入到数组中
byte b = Convert.ToByte(ba, 16);\/\/先把字符串转换成byte,之后加到你的数组data1中就行了
玉瞿复肝： 数组赋值常量: arr = Array (1,3,5) 数组复制区域: arr = Range(＂A1:C1＂)
孙吴县15792313056： vba数组一维数组怎么赋值给二维数组? - ？
玉瞿复肝： 一维给二维赋值,参考实例如下: for (i = 0; i < 10; i++) {for (j = 0; j < max; j++){scanf(＂%d＂, &a[j]);}strncpy(b[i], a, max);//memcpy(b[i], a, max); } 二维数组赋值有两种方法, 第一种方法是单元格区域装入二维数组,如: Arr=range(＂a1:b19...
孙吴县15792313056： 在VBA中如何用一个数组给另一个数组赋值?？
玉瞿复肝： 应该循环数组并比较后赋值,或按位赋值
孙吴县15792313056： EXCEL VBA 数组赋值 - ？
玉瞿复肝： E是第5列 i=1 to b i+1=1 to b+5 则i+5分别等于:6,7,8,9,10,11,12,最后取到的值就应该是Range(＂F1:L1＂)了 故而不正确而i+4就对了 现更正楼上的回答: b = WorksheetFunction.CountA(Range(＂e1:k1＂))ReDim a(b)For i = 1 To ba(i) = cells(1,i+4)Next i
孙吴县15792313056： VBA中关于数组及赋值的问题 - ？
玉瞿复肝： VBA数组赋值方式: 字符串数组的定义:Dim arr(1 to 3) as string 如此定义,但是不能直接给数组赋值 如果想直接给数组直接赋值,需要如下操作:Dim arr() as Variant arr=Array(＂a＂,＂b＂,＂c＂) 赋值格式:例如,给变量a赋值一个数为12,则格式为:a = 12 [注意:变量(即a)只能是一字母,而赋予的值可以是一个式子,当它是式子时,a的值就是这个式子的结果.
孙吴县15792313056： Excel VBA里数组有没有办法整体赋值的 - ？
玉瞿复肝： 1、可以使用单元格数组,这样就可以实现整体赋值,比如arr=range(＂A1:C3＂) 就是把单元格区域A1:C3的值一次性赋给arr,此时的arr就是一个三行三列的二维数组2、也可以使用直接定义的方式来定义整体数组,比如arr=array(0,1,2,3) ,arr=array(array(1,2,3),array(4,5,6)) 或者 arr = [{1,2;3,4}] 等等
孙吴县15792313056： VBA中如何用EXCEL表中的数据给数组赋值 - ？
玉瞿复肝： Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,多维数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的方法来写程序吧.使用excel vba数组赋值的主要目的是为了提高程序运行...
孙吴县15792313056： VBA数组赋值 - ？
玉瞿复肝： 用字节计算就不太方便,我习惯用字符数表示.假设B2只能存储字符20个.可以这样. 假设arr(1)为字符串类型 Range(“B2”).Value=left(arr(1),20) Range(“B3”).Value=right(arr(1),len(arr(1))-20) 以上是只分两行的,如果要再分多行的话,可以用MID函数分别取其中一部份分别填写到不同的单元格.
孙吴县15792313056： vba如何快速赋值？
玉瞿复肝： 直接数组赋值就行了. a(i,j)=range(cells(1,1),cells(i,j)) 比如ij都等于4,这句的意思就是把A1:D4的数据赋给a
孙吴县15792313056： VBA如何用代码赋值? - ？
玉瞿复肝：Sub aa()Dim arr()arr = Array(＂78＂, ＂64＂, ＂good＂, ＂100＂, ＂hello＂, ＂tt＂, ＂85＂)Range(＂A1:A＂ & UBound(arr) + 1) = WorksheetFunction.Transpose(arr) End Sub一维数组使用WorksheetFunction.Transpose转置为纵向即可,比循环赋值方便.
