vba数组添加元素（EXCEL_VBA 如何添加数组元素）
本文目录
EXCEL_VBA 如何添加数组元素
Dim
a
......
ReDim
Preserve
a(i)
......
先定义一个数组，如果比较后发现这个数为数组内没有，就让i=i+1后，重新定义一下数组，使其元素自动+1，再把值添加进去。
不明白的地方可以Q我，40194204
vba，数组添加
sub bijiao()
dim a()
dim i as long
dim b
’定义数组
redim a(0 to 10)
’数组赋值
for i=0 to ubound(a)
a(i)=i
next
’b赋值
b=6
’循环比较
for i=0 to ubound(a）
if b=a(i) then exit for
next
’判断是否找到
if i》ubound(a) then
msgbox “没有找到“
else
redim preserve a(0 to ubound(a)+1)
a(ubound(a))=b
end if
end sub
VBA 一维数组如何增加一个数据或者更多数据
用For 循环就可以，例如，第一行有数据，用下程序就可以把A~F列的数据放到数据中。
Sub tt()
Dim Arry(50)
For i = 0 To 5
Arry(i) = Cells(1, i + 1)
Next
End Sub
vba数组赋值
1、打开一个Excel的文件，在表格中输入简单的表格，比如学生身高表格，如下图所示。
2、接着，在表格中输入一维数组的说明文字，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件，如下图所示。
3、然后，在表格中绘制出按钮控件，并修改控件名称，比如使用一维数组的名称，如下图所示。
4、接着，选择按钮控件，并鼠标左键单击【查看代码】按钮，如下图所示。
5、然后，在代码窗口中输入VBA语句，比如输入定义一维数组的语句，并给一维数组赋值，如下图所示。
6、接着，在代码窗口中，输入一维数组给单元格赋值的VBA语句，如下图所示。
7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序的一维数组，并输出到身高的单元格中，显示出数据了，如下图所示。完成效果图。
VBA数组写入问题
往数组里赋值只能一个一个元素循环写入，无法批量赋值：
arr(1,1)=xxx
arr(1,2)=xx
........
arr(2,1)=xxxx
arr(2,2)=xxxx
........
arr(5000,100)=xxxxxx
这里range(“A1:BB1“)是个标题行？想放入数组arr中的第1行？
可以设个变量s， 然后s=range(“A1:BB1“) 这里的S是个相当于一维数组的变量，可以用数组的索引号来调用数组的内容，s(0),s(1).......依次就是表格中a1,b1,c1....bb1,具体如下
s=range(“A1:BB1“)
for y= 0 to ubound(s)
arr(1,y+1)=s(y)
next y
更多文章：
php购物车实现（商品放入购物车时减库存，购物车在20分钟后，清除所有商品，这个时候库存重新加上去，PHP怎么实现）
2026年10月11日 23:00
2026年10月11日 22:40
Windows窗口太多怎么处理我是电脑小白？当在桌面上打开多个窗口时,若要在不同的窗口之间切换,该如何操作
2026年10月11日 21:40
2026年10月11日 21:20
数控车床编程入门自学视频教程（请问有没有广数数控车床编程入门然后提高的视频教程）
2026年10月11日 21:10
oracle恢复数据文件（系统重装过了，但是oracle所有文件都在，我想数据恢复回来怎么弄）
2026年10月11日 20:30
canvas drawimage（qq浏览器支持canvas的drawimage方法吗）
2026年10月11日 19:50
rup包含了哪些核心工作流和哪些核心支持工作流？什么是RUP它有哪些特点
2026年10月11日 19:40
我想问下Discuz论坛怎么做自定义表单？自定义表单怎样与工作流结合
2026年10月11日 19:30
2026年10月11日 19:00
