【转载】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)

'处理的语句

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

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

For j = 1 To UBound(arr2)

If d.exists(arr2(j, 1)) Then d(arr2(j, 1)) = 1

For Each d1 In d.keys

If d(d1) = 0 Then d.Remove (d1)

Range("f1").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys) '相同的项放在f1单元格。

End Sub

巴特西

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

最新文章

热门文章