EXCEL_VBA 如何添加数组元素

Dim

a

......

ReDim

Preserve

a(i)

......

先定义一个数组，如果比较后发现这个数为数组内没有，就让i=i+1后，重新定义一下数组，使其元素自动+1，再把值添加进去。

不明白的地方可以Q我，40194204

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

工具/材料：Microsoft Office Excel2016版，Excel表格。

1、首先选中Excel表格中要数组赋值的单元格内容。

2、然后在该界面中，点击“插入”里“表单控件”里“按钮”选项。

3、再者在该界面中，在表格中生成按钮控件，修改控件名称。

4、其次在该界面中，点击“查看代码”选项。

5、继续在VBA界面中，输入定义一维数组的语句。

6、然后在VBA界面中，输入给单元格赋值一维数组的语句。

7、最后在该界面中，单元格里成功显示数组赋值结果。

---