VBA用基本写法 再写一次这个

laoau138

VBA用基本写法 再写一次这个


Sub 方法一()
Dim rw%, ar, br, i%, s%, j%
[k11:aq11] = 1
rw = Sheet1.Range("c" & Rows.Count).End(3).Row
ar = Sheet1.Range("k11:aq" & rw)
br = Sheet1.Range("c11:h" & rw)
For i = 1 To UBound(br, 2)               'VBA用基本写法 再写一次这个

    ar(1, br(1, i)) = 0     '这个数组看不懂   特别这句 ar(1, br(1, i)) = 0

Next

For i = 2 To UBound(ar)
    s = 1
    For j = 1 To 33
        If br(i, s) = j Then
            ar(i, j) = 0
            If s < 6 Then s = s + 1
        Else
            ar(i, j) = ar(i - 1, j) + 1
        End If
    Next
Next
Sheet1.Range("k11").Resize(UBound(ar), 33) = ar
End Sub