[已解决]解释下循环？

afad12

Sub 字典法()
    Dim arr, brr$(), i&, d As Object, s$
    Set d = CreateObject("scripting.dictionary")
    arr = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row)
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        s = arr(i, 3) & vbTab & arr(i, 4) & vbTab & arr(i, 5)
        d(s) = d(s) & ";" & arr(i, 1)
    Next
    For i = 1 To i - 1
        brr(i, 1) = Mid(d(arr(i, 3) & vbTab & arr(i, 4) & vbTab & arr(i, 5)), 2)
    Next
    [f2].Resize(i - 1) = brr
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-1-28 10:50

其实就是少声明了一个变量
常规做法就是再声明一个变量在第二个循环开始
比如 for j=1 to i-1

跳转到最佳答案楼层

hwc2ycy

For i = 1 To i - 1，应该不会执行。直接忽略了

hwc2ycy

看错了，应该会执行，i-1这里i并不等于1

hwc2ycy

其实就是少声明了一个变量
常规做法就是再声明一个变量在第二个循环开始
比如 for j=1 to i-1