【EXCEL_VBA_基础知识】11 使用VBA数组

课程来源:王佩丰老师的《王佩丰学VBA视频教程》,如有侵权,请联系删除!

当循环中大量使用需多次计算表达式时,可利用数组简化并提升效率(底层逻辑:只算一次,然后结果暂存,使用时去相应位置取出!

目录

[0. 效率提升示例](#0. 效率提升示例)

[1. 自定义数组](#1. 自定义数组)

[2. 重定义数组(可以动态调整大小的数组)](#2. 重定义数组(可以动态调整大小的数组))

[3. UBound与LBound](#3. UBound与LBound)


0. 效率提升示例

vbnet 复制代码
Sub Sum_If()

Dim i, k As Integer
Dim str As String

Dim arr()

'只计算一次Range
'比每次使用range("g" & i)快
arr = Range("g1:j200000")

'查找条件
str = Range("n5")

For i = 2 To 200000

    ' 满足即累加
    If arr(i, 1) = str Then
        k = k + arr(i, 4)
    End If
    
Next

Range("p5") = k


End Sub

1. 自定义数组

vbnet 复制代码
'定义一维数组并赋值
Sub test()
Dim arr(1 To 4)

arr(1) = "张三"
arr(2) = "李四"
arr(3) = "王五"
End Sub

'定义二维数组并赋值
Sub test1()
Dim arr(1 To 4, 1 To 2)

arr(1, 1) = "张三"
arr(1, 2) = 30
arr(2, 1) = "李四"
arr(2, 2) = 35
arr(3, 1) = "王五"
arr(3, 2) = 40
End Sub


'将数组中的某个值输出到单元格
Sub test3()
Dim arr(1 To 4)

arr(1) = "张三"
arr(2) = "李四"
arr(3) = "王五"

Range("b2") = arr(2)
End Sub

' 将一维数组中的所有值输出到单元格区域
' 一维数组为行存储(先行后列)
Sub test4()
Dim arr(1 To 4)

arr(1) = "张三"
arr(2) = "李四"
arr(3) = "王五"

Range("a7:d7") = arr
End Sub


'将二维数组中的所有值输出到单元格区域
Sub test5()
Dim arr(1 To 3, 1 To 2)

arr(1, 1) = "张三"
arr(1, 2) = 30
arr(2, 1) = "李四"
arr(2, 2) = 35
arr(3, 1) = "王五"
arr(3, 2) = 40

Range("a15:b17") = arr


'将区域赋值给数组


Sub test6()
Dim arr()

arr = Range("a1:a5")


End Sub

2. 重定义数组( 可以动态调整大小的数组**)**

1. 首先,不指定数组大小

2. 然后使用ReDim语句来定义数组的大小

vbnet 复制代码
Dim arr()
Dim j, i As Integer

j = Range("a65536").End(xlUp).Row - 1 ' 确定行数

ReDim arr(1 To j)

3. UBound与LBound

UBound用于返回数组或集合的指定维度的最大值,即上界。它接受两个参数:数组名(arrayname)和维度(dimension)。如果省略维度参数,则默认返回第一维的上界。

UBound函数与LBound函数一起使用,可以确定数组的大小。

这个函数在处理多维数组时特别有用,可以帮助确定数组的边界,从而在循环或访问数组元素时避免越界错误

vbnet 复制代码
Dim A(1 To 100, 0 To 3, -3 To 4)

' 使用UBound函数可以获取每个维度的上界:

LBound(A, 1) = 1
LBound(A, 2) = 0
LBound(A, 3) = -3
UBound(A, 1) = 100
UBound(A, 2) = 3
UBound(A, 3) = 4
相关推荐
CodeCraft Studio9 小时前
Excel处理控件Aspose.Cells教程:使用 Python 将 HTML 转换为 Excel
python·html·excel·aspose·aspose.cells·html转excel
Leo655359 小时前
Excel 读取阶段就去掉换行
excel
小镇学者10 小时前
【PHP】利用 xlswriter 扩展导出的Excel文件报错问题
php·excel
程序员杰哥11 小时前
Pytest与Unittest测试框架对比
自动化测试·软件测试·python·测试工具·测试用例·excel·pytest
cehuishi952712 小时前
excel中关联word邮件合并使用
word·excel·批量打印·邮件合并
曾令胜19 小时前
excel导出使用arthas动态追踪方法调用耗时后性能优化的过程
spring·性能优化·excel
我命由我123451 天前
Excel - Excel 列出一列中所有不重复数据
经验分享·学习·职场和发展·word·powerpoint·excel·职场发展
Lucky GGBond1 天前
Vue + Spring Boot 实现 Excel 导出实例
vue.js·spring boot·excel
缺点内向1 天前
C# 中 Excel 工作表打印前页面边距的设置方法
c#·.net·excel
极智-9962 天前
Excel如何合并单元格?【图文详解】Excel合并单元格技巧?单元格合并高阶操作?
excel·excel如何合并单元格·excel合并单元格技巧·单元格合并高阶操作·单元格合并·取消单元格合并·重复数据合并