- Sub AA()
- Dim i%, i1%, i2%, Arr, Arr2
- Arr = Sheets("表1").Range("A1").CurrentRegion
- Arr2 = Sheets("表2").Range("A1").CurrentRegion
- For i = 2 To UBound(Arr)
- For i1 = 2 To UBound(Arr2)
- If Arr2(i1, 1) = Arr(i, 1) Then
- Arr(i, 7) = Arr(i, 7) - Arr2(i1, 2)
- Arr(i, 4) = Arr(i, 5) + Arr(i, 6) + Arr(i, 7)
- Arr(i, 3) = Arr(i, 2) - Arr(i, 4)
- End If
- Next i1
- Next i
- Range("A1").Resize(UBound(Arr), 7) = Arr
- End Sub
复制代码 |