Question

vb中ubound怎么用

Answer 1

　　就是取数组的最大下标。

　　格式：Ubound(数组，第几维)

　　给一段代码，运行一下：

　　新建一窗体，然后到代码区，删除所有代码后，粘贴以下代码，可见运行效果：

Option Explicit

Private Sub Form_Load()
Dim A(10) As String
Dim B(3, 6) As Long
Dim C(5, 9, 2) As String
Dim i, j, k, n As Long

i = UBound(A) '取一维数组的最大下标，结果是10
j = UBound(B, 2) '取二维数组第二维的最大下标，结果是6
k = UBound(C, 3) '取三维数组第三维的最大下标，结果是2
n = UBound(C, 2) '取三维数组的第二维最大下标，结果是9
Debug.Print i, j, k, n
End Sub

　　运行结果，在立即窗口里出现：

　　10     6    2    9

Answer 2

Excel VBA 数组函数LBound和UBound

浮云Excel
2018-06-26
数组的定义、赋值、取值前述几篇文章都讲过了。涵盖了数组的入门知识，后面几篇开始讲述 数组的常用函数

数组有自己用的函数，也可以调用Excel的函数。调用Excel里面的函数前面几篇文章用了很多：

比如《Excel VBA 数据基础（一）》的转置函数 Transpose

Range("a3:a6") = Application.WorksheetFunction.Transpose(arr)
比如《Excel VBA 实现数字统计-数组方法》的sum、index函数

crr(1, i) = Application.WorksheetFunction.Sum(Application.WorksheetFunction.Index(brr, 0, i))
数组的函数也在前面用过：

比如《Excel VBA 实现数字统计-数组方法》的Ubound函数

For k = 1 To UBound(arr, 1)

For i = 1 To UBound(arr, 2)
但是之前并没有详细讲解ubound的函数，那么今天来讲讲数组的上标及下标。

1.LBound 取得数组的上标

这个用的比较少,因为上标默认的是0和1

2.UBound取得数组的下标

这个函数很多,不过大家要注意 对一维数组来说,只有一个下标 如 ubound(arr1)和ubound(arr1,1)是一样的

而对二维数组来说,就有二个下标了.一个是行,也就是说一维的下标,一个是列,是二维的下标 一维上的下标 ubound(arr1)和Ubound(arr1,1) 是一样的,而二维上的下标 Ubound(arr1,2)

函数演示如下（只演示二维数组）:

注：chr（10）理解为换行符。

搜索
十个excel必背公式
excel一键提取部分文字
29个常用的excel公式
免费自学excel教程全套
excel怎么求乘积公式
vba制作excel数据录入

Answer 3

ubound函数返回数组的最大下标

    Dim s(4) As String
    Dim i As Integer
    
    'i=4
    i = UBound(s)