【VBA】数组定义时，括号内的数值n为最大下标，其长度为n+1

最新推荐文章于 2024-08-06 17:25:32 发布
最新推荐文章于 2024-08-06 17:25:32 发布
阅读量579 收藏
点赞数
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/tigerhsu/p/9794087.html
本文详细解析了VBA中定义数组时的常见误区，特别是关于数组长度和最大下标值之间的区别，强调了在使用redim和赋值操作时避免错位的重要性。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

定义数组 dim arr(9) as integer
注意这是数组的长度为10,而9指的是最大下标值。

所以在redim和赋值的时候要特别小心，防止错位。

转载于:https://www.cnblogs.com/tigerhsu/p/9794087.html

【VBA研究】数组的定义和使用
驽马十驾 才定不舍
06-07 1万+
作者：iamlaosong数组用起来很方便，尤其是利用循环可以大大简化代码量。用数组读取工作表内容，再进行各种处理，可以大大提高程序效率。在数组使用过程中不可避免的要碰到一些令人困惑的问题，下面就讨论一下与数组相关的问题。定义（声明）数组时是要明确数组上界的，如下面语句：Dim mm(31), ww(7, 2)上面两个数组，mm的上界就是31，ww是个二维数组，上界分别是7和2，那么下界呢？VBA默认将数组的第一个成员设置为0 (下标) ，因此，数字1代表数组中的第二个成员，而数字2则代表第三个，等等。因为
VBA笔记入门篇
m0_37999045的博客
12-06 4045
VBA笔记入门篇 VBA全名: Visual Basic Application 准备·工作 打开VBA 打开左上角的：文件->选项 弹出如下画面，选择“自定义功能区”，勾选上“开发工具”，点击确定。Excel的头上就会多出一个选项卡：开发工具。 另一种打开方式： 在excel头部的任意一个选项卡里单击右键，在弹出的菜单里选第三项“自定义功能区域”。也可以弹出如上画面。 启用宏 因为很多病毒是靠VBA的宏传播，所以excel默认禁止执行宏，所以要执行VBA先要允许宏启...
VBA 数组定义，赋值，一维数组
热门推荐
奔跑的犀牛先生
12-19 6万+
1VBA数组的基础定义 1.1什么是数组? 就是一组数/字符等用同一个名字(这个名字就是：数组名)，作为一个整体存储在一起 1.2什么是元素 这些被保存在同一个数组名下的，多个内容，称为element 元素 数组里的元素是可以重复的 1.3元素是怎么在数组内排序的？ 数组是有序的 用什么来标识顺序呢？，就是index index 是一串连续的整数（也可以为负数），index必须 ...
Excel-VBA-数组-01-定义数组
Z的博客
05-23 7151
微信公众号原文 系统：Windows 7 软件：Excel 2016 本系列讲讲数组功能 今天说说如何定义数组 Part 1：背景 数组有1维，2维，3维等多个维度。这个系列主要讲1维和2维数组，一般也就够用 1维数组简单理解就是1行数据 2维数组简单理解就是1个Excel的工作表，有行和列两个维度 数组一般是用于在程序运行过程中临时存储数据，从1-2维数组的作用来看，完全可以使用Excel工作表来代替。数组的优势在于它是临时存在于内存中，无需写入硬盘中，它的读写速度非常快 Part 2
VBA学习笔记四：数组
gogoel的博客
05-04 4946
第4部分 数组；介绍了数组的基本概念，在VBA中声明数组的方法、如何写入数组以及数组常用的功能，包括数组元素的处理、清空数组、数组之间的转置和结合工作表函数使用的方法。最后延伸到了数组中元素的排序，冒泡排序、选择排序、插入排序、快速排序和归并排序，这些排序的方法可以帮助我们更深入理解算法的原理和执行过程
vba-数组定义方式与起始下标
qq_26250255的博客
08-06 644
是两种不同的数组初始化方式，它们的主要区别在于数组的类型和结构。
Excel+VBA+之快速上手
随风佳苑
12-31 1万+
第一章  VBA语言基础  第一节 标识符  一．定义  标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常 量、过程、函数、类等的引用。   二．命名规则  1） 字母打头，由字母、数字和下划线组成，如  A987b_23Abc  2） 字符长度小于 40，（Excel2002以上中文版等，可以用汉字且长度可达 254个字符）  3） 不能与 VB保留关键字
Excel VBA编程
Peter_Luoz的博客
04-11 3万+
文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引号利用LBound函数求最小索引号求多维数组的最大和最小索引号用join函数将一维数组合并成字符串将数组内容写入工作表中数组的存取特殊数据的专用容器——常量对象，集合及对象的属性和方法VB...
Excel中VBA编程学习笔记（二）
数据之道
11-25 1680
7、VBA中的数据类型 据类型（名称） 大小（字节） 描述 Boolean 2 逻辑值True或False Byte 1 0到255的整数 Integer 2 ...
VBA快速入门学习笔记
10-04 5082
NOTE 1： 一、VBA对象 VBA对象包括工作薄、工作表、工作表上的单元格区域、图表等等，工作簿、工作表、单元格、批注、透视表、自选图形、名称等等都是对象，VBA正是用于处理这些对象的语言。下图是一个比较经典的VBA对象类别图。在VBE（VB编辑器）里也可以看到对象的浏览器（F2键），对象可以相互包含。 二、VBA对象引用 对象的引用（reference） 在写代码是要控制对象，首先要找到这个对象，然后把这个对象的地址告诉给VBA程序，且要遵循从大到小的规则。和...
VBA提高篇_10 数组下标/变体数组/动态数组
pigerr的博客
02-01 397
【代码】VBA提高篇_10 数组下标/变体数组/动态数组。
【VBA】数组介绍
qq_40797063的博客
05-08 1万+
vba数组详解 数组创建 Dim arr () 创建一个动态变量数组,不受长度/数据类型受制 Dim arr(5) as string 创建一个一维数组,下标从0开始,最大下标值为5 Dim arr(3,3) as string 创建一个二维数组,开始arr(0,0),最后一个arr(3,3) 数组的赋值 1.通过Array函数赋值 Dim arr() arr=Array("red","yellow","blue","black") 2.通过for循环赋值 Dim arr(3) d
VBA数组动态下标下界
神奇的BI
09-15 2643
设置下界值，如果没有这行代码，那么下界值为零。这不失为一个方法，但是局限性很大，用户必须要启用“信任对VBA工程对象模型的访问”，否则无法使用。VBA中数组默认下标下界为从零开始，有些同学喜欢下标下界从一开始，这只是编程习惯不同，无对错之分。现有一个VBA自定义函数，参数为下标上界，函数返回值为一维数组，代码较简单，不再逐句讲解。设置保持一致，那么可以取巧的使用检测数组下标下届的方法得到这个设置。大家是否注意到了，第一行代码指定数组下标下届从1开始，但是函数。决定的，此变量的值是Hard Code。
VBA中如何动态定义数组
weixin_34356138的博客
03-18 906
利用dimArr（）asstring这样声明，一旦赋值后，数组大小也就固定了。如果要改变数组大小，要用redim命令redimarr（10） 加preserve可以不清空数组，保持原有数据preserveredimarr（） 转载于:https://www.cnblogs.com/jenney-qiu/p/4346623.html...
VBA中数组的运用
m0_54284125的博客
11-18 1354
处理量大的数据，还是用数组方便。学习记录备忘
VBA实战(06) - 数组
jie_ming514的博客
12-30 3528
Class06. 数组 定义 下面是几种常见定义数组的方法。 ' 定义一个一维数组，数据类型为Variant，长度从0到5，实际控件有六个，长度为5 Dim arr(5) as String ' 定义一个一维数组，数据类型为Variant，长度从1到5，实际控件有六个，长度为5 Dim arr(1 to 5) as String ' 可以省略As后面部分，等于 Dim arr2 () as Variant Dim arr(5) ' 一维数组，下标从0开始 arr2 = Array("你好", "世界") '
(四)VBA常用基础知识：数组1
charles542307299的博客
09-11 662
3.数组循环时需要计算数组的size，这个时候就不得不先提一笔UBound，LBound函数。3.3 使用UBound，LBound函数对1和2的循环做一下更改。3.1 UBound：返回数组的最大索引数。3.2 LBound：返回数组的最小索引数。2.vba的数组还有一种写法。
VB中两种数组的上限
生灵的专栏
05-14 3615
        这是我试验出来到，一种是变量数组，有两种限制，上限都很大，一种是编译器限制有10位数，另一种是内存限制，比编译器的限制值小，但我估计限制与内存设计有关，没有准确值（估计而已）。另一种是控件数组上限是32767,这是Integer型的一半
他山之石——VBA数组的使用-Part1（VBA Array）
预见未来to50的专栏
06-24 4121
数据量较大时，数组的使用几乎是必不可少的。所以，数组必须熟练。Option Explicit '向VBA数组中写入数据 '1、按编号（标）写入和读取 Sub t1() '写入一维数组 Dim x As Integer Dim arr(1 To 10) arr(2) = 190 arr(10) = 5 End Sub ...
vba数组下标设置为1开始
最新发布
03-21
<think>好的，我需要回答用户关于如何在VBA中将数组下标设置为从1开始的问题。首先，我应该回忆一下VBA中数组的基本知识。记得默认情况下，VBA的数组下标是从0开始的，但用户想要从1开始。 接下来，我需要找出设置数组下标从1开始的方法。根据之前的引用内容，用户提到使用Option Base 1语句。这应该是在模块顶部声明，影响整个模块的数组下界。比如在示例代码中，Option Base 1被用来将默认下界设为1。 然后，可能需要进一步说明如何具体应用这个语句。比如，在模块的开头加上Option Base 1后，该模块中声明的数组如果没有显式指定下界，都会从1开始。例如，Dim arr(5)会变成下标1到5，而不是0到5。 另外，用户提供的示例函数GetArr1中，使用了LBound(tmp)来获取当前模块的下界，这可能是因为tmp数组没有指定下界，所以受Option Base的影响。这展示了如何动态地处理数组下界，确保代码适应不同的Base设置。 还需要提到，如果在过程中需要覆盖默认设置，可以显式声明下界。例如，即使有Option Base 1，使用Dim arr(0 To 5)仍然会创建下标0到5的数组。这说明显式声明优先于Option Base。 此外，动态数组的使用也很重要。用户可能需要在运行时调整数组大小，这时ReDim语句的使用需要注意下界的设置。比如ReDim arrRes(intInd To intCnt)中的intInd来自LBound(tmp)，这样可以保持与模块的Base设置一致。 最后，应该提醒用户注意事项，比如Option Base只能设置为0或1，且必须放在模块顶部，过程内部不能使用。同时，不同模块的Option Base是独立的，这可能导致不同模块中的数组下界不同，需要注意作用域的问题。 总结一下，回答应该包括使用Option Base 1的方法、示例代码解释、动态数组的处理，以及注意事项。确保用户能够清楚地了解如何设置数组下界，并避免常见的错误。</think>在VBA中将数组下标设置为从1开始，可以通过以下两种方法实现： ### 方法1：使用`Option Base`声明 在代码模块的**顶部**添加`Option Base 1`声明，该模块中所有未指定下标的数组默认从1开始： ```vba Option Base 1 '必须放在模块顶部 Sub Demo() Dim arr(5) As Integer '此时数组下标范围为1-5 arr(1) = 10 Debug.Print LBound(arr) '输出1 End Sub ``` [^1] ### 方法2：显式声明下标范围 声明数组时直接指定下界： ```vba Sub Demo() Dim arr(1 To 5) As Integer '强制下标从1开始 arr(1) = 20 Debug.Print LBound(arr) '输出1 End Sub ``` ### 动态数组处理（结合两种方法） ```vba Option Base 1 Function CreateArray(size As Integer) Dim tmp() As Variant Dim baseIndex As Integer baseIndex = LBound(tmp) '获取当前模块的基础下标[^2] Dim dynamicArr() As Variant ReDim dynamicArr(baseIndex To size) '动态数组下标从1开始 For i = baseIndex To size dynamicArr(i) = i Next CreateArray = dynamicArr End Function ``` ### 注意事项 1. `Option Base`仅接受0或1，且必须放在模块顶部 2. 显式声明的下标范围（如`1 To 5`）优先级高于`Option Base` 3. 不同模块可以设置不同的`Option Base` 4. 使用`LBound`函数可验证数组实际下界
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值