求助

657893963

哪位大神能帮忙看下怎么从汇总表提取实领大于应领的数据和实领小于应领的数据，能帮写个程序不，或者还有其他什么办法，谢谢各位了。

风林火山

1. Sub test()
   
2.     Dim arr, brr(), crr(), k As Integer, i As Integer, s As Integer, ss As Integer
   
3.     Dim m, n
   
4.     arr = Sheet1.Range("a6:am" & Sheet1.Range("c1000").End(3).Row)
   
5.     ReDim brr(1 To 100, 1 To UBound(arr, 2) - 4)
   
6.     ReDim crr(1 To 100, 1 To UBound(arr, 2) - 4)
   
7.    
   
8.     For k = 1 To UBound(arr)
   
9.         If arr(k, 3) <> "" Then
   
10.             s = 0: ss = 0
    
11.             For i = 8 To UBound(arr, 2) Step 2
    
12.                 If arr(k, i) > arr(k, i + 1) Then
    
13.                     If s = 0 Then m = m + 1: s = s + 1
    
14.                     brr(m, 2) = arr(k, 3)
    
15.                     brr(m, i - 4) = arr(k, i) - arr(k, i + 1)
    
16.                 End If
    
17.                 If arr(k, i) < arr(k, i + 1) Then
    
18.                     If ss = 0 Then n = n + 1: ss = ss + 1
    
19.                     crr(n, 2) = arr(k, 3)
    
20.                     crr(n, i - 4 + 1) = arr(k, i) - arr(k, i + 1)
    
21.                 End If
    
22.             Next i
    
23.         End If
    
24.     Next k
    
25.    
    
26.     Sheet3.Range("a5").Resize(UBound(brr), UBound(brr, 2)) = brr
    
27.     Sheet5.Range("a5").Resize(UBound(crr), UBound(crr, 2)) = crr
    
28. End Sub
    

复制代码