[已解决]请教老师们一句VBA代码的意思

yjwdjfqb

请教老师们一句VBA代码的意思

Sub test()
    Dim f$, p$, d, ar
    Set d = CreateObject("Scripting.Dictionary")
   
    Application.ScreenUpdating = False
    p = ActiveWorkbook.Path & "\"
    f = Dir(p & "*.xls")
   
    Do While Len(f)
        If f <> ActiveWorkbook.Name Then
            With GetObject(p & f)
                ar = .ActiveSheet.Range("D6").CurrentRegion
                .Close False
            End With
            For i = 3 To UBound(ar)
                For j = 3 To UBound(ar, 2)
                    d(ar(i, 5) & ar(3, j)) = ar(i, j)
                Next
            Next
        End If
        f = Dir
    Loop
   
    End Sub

请教老师们下，红色一句，是什么意思，　其中　UBound(ar, 2)　中的2　，为什么，这儿参数是2，请老师们给我讲解下，谢谢老师们了！

最佳答案

月排行榜 / 总排行榜

冥王

2015-9-13 18:32

UBound(ar, 2)  表示返回数组ar第二维的上界

跳转到最佳答案楼层

冥王

UBound(ar, 2)  表示返回数组ar第二维的上界

高

让j等于3到数组的列数的最大值。