【转载】EXCEL VBA UBound(arr,1),UBound(arr,2)解释

Resize(UBound(arr, 1), UBound(arr, 2) 这句什么意思

 

resize（）是一个扩展单元格地址区域的函数，有两个参数，第一个是行扩展数，第二个是列扩展数
 
UBound(arr, 1) ：arr数组中最大行数；
UBound(arr, 2) ：arr数组中最大列数。
 
这里是把数组的最大行数充当了 RESIZE的行扩展，最大列数 充当了resize的列扩展数。
 

 
arr = Range(("a2:b") & Range("a6555").End(xlUp).Row)
[a2].Resize(UBound(arr), 2) = arr    '请详细解释一下这行什么意思？

 

把AB2列存入数组arr，再将arr重写入这个区域
效果就是如果原来有公式，这样就全没了，相当于粘贴数值。

 
例子1：
-------------------------------

Sub iSub()
    Dim arr
    arr = Range("a1:a7")
    For i = 1 To UBound(arr, 1)
       For j = 1 To UBound(arr, 2)
          '处理的语句
       Next
    Next
End Sub
--------------------------------
解释：
将 arr 赋值为一个数组，即 Range("a1:a7")的单元格区域内容，即一个7行1列的区域
相当于：先定义数组 arr(1 to 7 ,1 to 1)，再赋值内容
 
使用UBound(arrayname[, dimension])函数，获取指定维数的上限：
UBound(arr, 1)  取得arr第一维的上限： 7
UBound(arr, 2)  取得arr第二维的上限： 1
 
用两个 for ，循环数组中的每个元素。

 
例子2：

Sub 二列数据找相同项数组法()
    Dim arr1, arr2, arr3()
    arr1 = Range("A1:A13")            '第一列数据范围
    arr2 = Range("B1:B13")            '第二列数据范围
    For i = 1 To UBound(arr1)
       For j = 1 To UBound(arr2)
           If arr1(i, 1) = arr2(j, 1) Then
              If InStr(Join(arr3, ","), arr1(i, 1)) = 0 Then
                 n = n + 1
                 ReDim Preserve arr3(1 To n)
                 arr3(n) = arr1(i, 1)
                 Exit For
              End If
           End If
       Next
    Next
   Range("d1").Resize(UBound(arr3), 1) = WorksheetFunction.Transpose(arr3)         '相同的项放在d1单元格中。
End Sub
 
Sub 二列数据找相同项字典法()
    arr1 = Range("A1:A13")        '第一列数据范围
    arr2 = Range("B1:B13")        '第二列数据范围
    Set d = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr1)
       d(arr1(i, 1)) = 0
    Next
    For j = 1 To UBound(arr2)
       If d.exists(arr2(j, 1)) Then d(arr2(j, 1)) = 1
    Next
    For Each d1 In d.keys
       If d(d1) = 0 Then d.Remove (d1)
    Next
   Range("f1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)        '相同的项放在f1单元格。
End Sub

【转载】EXCEL VBA UBound(arr,1),UBound(arr,2)解释的相关教程结束。