vba数组的经典用法(vba数组怎么赋值字符)

扫码添加渲大师小管家，免费领取渲染插件、素材、模型、教程合集大礼包！

大家好，今天来介绍vba数组的经典用法(如何在vba中声明数组数据)的问题，以下是渲大师小编对此问题的归纳和整理，感兴趣的来一起看看吧！

vba数组怎么赋值

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

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

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

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

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

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

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

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

如何在vba中声明数组

1、vba中使用Dim关键字声明数组，世高梁Dim关键字的后面是数组名称，名称之后要有括号，然后括号之后可以指明搜运数组的长度，也可用to关键字指明范围，最后则是用as 关键字指明类型，具体的格式见念吵下图：

2、下面用一个实例来说明用法，首先在表格中有6000个数值，筛选出大于90的数值将其复制至B栏或C栏，分别用两种方法来写代码，一种方法不含数组，另二种方法含有数组，比较两种方法的速度：

2、在Excel工作表中，点击菜单栏开发工具，在其工具栏内，点击visual basic：

3、此时会进入VBA编辑界面，点击菜单栏插入，在其下拉菜单中选择模块：

4、此时软件会弹出模块编辑窗口，这里就可以输入vba的代码：

5、在代码编辑窗口输入带数组和不带数组的两种代码，这里可以看到用Dim关键字声明了一个6000个元素的数组：

6、在工作表界面的开发工具菜单下，点击插入按钮插入表单控件，分别与两组代码关联：

7、点击筛选数据1按钮，即不含数组，程序运行的时间了13.4219秒：

8、点击筛选数据2按钮，即含数组的一组，程序运行的时间为0.0313秒，可以看到这种方法快多了吧：

VBA数组的定义与赋值

可直仔蚂接定义，但是不能直接赋值，可参考以下代码：

1、Dim arr(1 to 3) as string

如此定义，但是不能直接给数组赋值

如果想直念漏埋接给数组直接赋值，需要如下操作：

Dim arr() as Variant

arr=Array("a","b","c")

2、Dim A As Variant

A = Array(10,20,30)

B = A(2)

array函数返回的是变体型，要用该函数是不能给数组变量赋值

VBA的常用内置函数：

MsgBox

InputBox

舍入函数：Fix 向0取整,Int向下取整, Round四舍五入

Rnd： 返回0-1内的单精度随机数

字符串函数：

Filter：对字符串的一维数组的过滤

InStr([Start, ],[, Compare])与InStrRev： 查找子串

Len：字符串长度

Join：连接一维数组中的所有子字符串

Left,Right,Mid： 截取子字符串

Space(数值) ：生成空格字符串

Ucase,Lcase：大小写转换函数

Ltrim, Rtrim,Trim ：删除首尾空格

Replace

Split：分割一个字符串成为一维数组

StrComp：字符串比较

StrConv：字符串转换

String(number, character)：制搜搜定字符重复若干次

来源：-VBA （Visual Basic宏语言）

VBA操作数组

123456789Option Base 1Sub 数组片段()Dim i%, arr, arr1(2, 1) '谈旁稿先定义一个和绿色区域相同大小的数组arr1，2行1列arr = Range("G2:K6").Value '把黄色区域的数据读入数启陆组arr，5行5列For i = 1 To 2 '用<a
href="http://www.baidu.com/s?wd=FOR%E5%BE%AA%E7%8E%AF&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YduHnkuH6dnHRknWbkuhDv0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHbdrHbLrjnkn1mLnj64nHfvn0"
target="_blank"
class="baidu-highlight">FOR循环为新数组arr1赋值 arr1(i, 1) = arr(i + 2, 3)Next iRange("A1").Resize(2) = arr1 '将单元格区域A1改变大小为含孝2行1列后输入新数组arr1的值End Sub

vba数组的使用

你的主要问题是

1. dim a(10)相当于定义了一个长度侍凯为10的数组. 因为你用Option Base 1声明了下标从1开始, 所以dim a(10) 相当于是 dim a(1 to 10);

2. dim i as Integer, 而i没有赋给初始老雀唤值时, 默认赋值为0. 所以for i = i to 10第一个就开始从0循环, 就是a(0)了, 导致数组下标越界.

你是笔误了吧, 将for i = i to 10修改为岁陆for i = 1 to 10