|
有一处错误,代码请替换
- Sub aaa()
- Dim arr, brr(1 To 1000, 1 To 12), i&, d As Object, d1 As Object, s$, s1$, r&
- Set d = CreateObject("scripting.dictionary")
- Set d1 = CreateObject("scripting.dictionary")
- d([p1].Value) = 2
- d([p2].Value) = 7
- d([p3].Value) = 12
- d([p4].Value) = 0
- d([p5].Value) = 1
- d([p6].Value) = 2
- d([p7].Value) = 3
- d([p8].Value) = 4
- d("") = 0
- s = Sheets(2).[a2]: s1 = Sheets(2).[a3]
- arr = Sheets(1).[a1].CurrentRegion
- For i = 2 To UBound(arr)
- If arr(i, 2) = s And arr(i, 3) = s1 Then
- If Not d1.exists(arr(i, 6)) Then
- r = r + 1
- d1(arr(i, 6)) = r
- brr(r, 1) = arr(i, 6)
- End If
- brr(d1(arr(i, 6)), d(arr(i, 10)) + d(arr(i, 8))) = brr(d1(arr(i, 6)), d(arr(i, 10)) + d(arr(i, 8))) + arr(i, 9)
- End If
- Next i
- Sheets(2).[a4:l1000].ClearContents
- Sheets(2).[a4].Resize(r, 12) = brr
- End Sub
复制代码 |
评分
-
查看全部评分
|