GBKEE

¦^´_ 1# united7878
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, Quantity(1 To 2) As Integer, Total(1 To 2) As Double
   
4.     Set Rng = Sheets("C").[B2]
   
5.     Do While Rng <> ""
   
6.          With Sheets("A")
   
7.             .Range("a1").AutoFilter Field:=2, Criteria1:=Rng
   
8.             Quantity(1) = Application.Sum(.Range("d:d").SpecialCells(xlCellTypeVisible))
   
9.             Total(1) = Application.Sum(.Range("E:E").SpecialCells(xlCellTypeVisible))
   
10.         End With
    
11.         With Sheets("B")
    
12.             .Range("a1").AutoFilter Field:=2, Criteria1:=Rng
    
13.             Quantity(2) = Application.Sum(.Range("d:d").SpecialCells(xlCellTypeVisible))
    
14.             Total(2) = Application.Sum(.Range("E:E").SpecialCells(xlCellTypeVisible))
    
15.         End With
    
16.         With Rng
    
17.             .Cells(1, 2) = Round(Quantity(1) - Quantity(2))
    
18.             .Cells(1, 3) = Round((Total(1) - Total(2)) / .Cells(1, 2))
    
19.         End With
    
20.         Set Rng = Rng.Offset(1)
    
21.     Loop
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# united7878
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, Quantity(1 To 2) As Integer, Total(1 To 2) As Double
   
4.     Dim Sh As Worksheet, i(1 To 2) As Integer
   
5.     Set Rng = Sheets("C").[B2]
   
6.     Set Sh = Sheets.Add    '·s¼W¤u§@ªí
   
7.     Do While Rng <> ""
   
8.          With Sheets("A")
   
9.             .Range("a1").AutoFilter Field:=2, Criteria1:=Rng
   
10.             Quantity(1) = Application.Sum(.Range("d:d").SpecialCells(xlCellTypeVisible))
    
11.             Total(1) = Application.Sum(.Range("E:E").SpecialCells(xlCellTypeVisible))
    
12.         End With
    
13.         With Sheets("B")
    
14.             .Range("a1").AutoFilter Field:=2, Criteria1:=Rng
    
15.             Quantity(2) = Application.Sum(.Range("d:d").SpecialCells(xlCellTypeVisible))
    
16.             Total(2) = Application.Sum(.Range("E:E").SpecialCells(xlCellTypeVisible))
    
17.         End With
    
18.         With Rng
    
19.             .Cells(1, 2) = Quantity(1) - Quantity(2)             '®w¦s¼Æ¶q
    
20.             If .Cells(1, 2) > 0 Then '¦³®w¦s¼Æ¶q
    
21.                 If Total(2) > 0 Then  '¾P³f¼Æ¶q
    
22.                     Total(2) = 0
    
23.                     i(1) = .Cells(1, 2)
    
24.                     With Sh
    
25.                         .UsedRange.Clear
    
26.                         Sheets("A").UsedRange.Copy .[A1]     '½Æ»s: Aªí¦Û°Ê¿z¿ï«áªº¼Æ­È
    
27.                         i(2) = .UsedRange.Rows.Count         '¸ê®Æªº³Ì«á¤@¦C
    
28.                         Do While i(1) > 0        '®w¦s¼Æ¤j©ó 0
    
29.                             Do While .Cells(i(2), "D") > 0 And i(1) > 0
    
30.                                 Total(2) = Total(2) + .Cells(i(2), "c")
    
31.                                 i(1) = i(1) - 1   '®w¦s¼Æ - 1
    
32.                                 .Cells(i(2), "D") = .Cells(i(2), "D") - 1 '¶i³f¼Æ¶q -1
    
33.                             Loop
    
34.                             i(2) = i(2) - 1 '¸ê®Æ¦C ¤W²¾ ¤@¦C
    
35.                         Loop
    
36.                     End With
    
37.                 .Cells(1, 3) = Round(Total(2) / .Cells(1, 2), 1)
    
38.                 Else  ' ¾P³f¼Æ¶q¬°0
    
39.                     .Cells(1, 3) = Round((Total(1) - Total(2)) / .Cells(1, 2), 1)
    
40.                 End If
    
41.             Else   '¨S¦³®w¦s¼Æ¶q
    
42.                 .Cells(1, 3) = 0
    
43.             End If
    
44.         End With
    
45.         Set Rng = Rng.Offset(1)
    
46.     Loop
    
47.     Application.DisplayAlerts = False
    
48.     Sh.Delete    '§R°£:·s¼Wªº¤u§@ªí
    
49.     Application.DisplayAlerts = True
    
50. End Sub

½Æ»s¥N½X