lpk187

¦^´_ 1# sabery

1. Sub TEST()
   
2. Dim i As Integer
   
3. Dim j As Integer
   
4.        j = 5
   
5.     Do While Sheets("B").Range("A" & j) <> ""
   
6.            i = 6
   
7.         Do While Range("B" & i) <> ""
   
8.             If Range("B" & i) = Sheets("B").Range("A" & j) Then
   
9.                 B = Sheets("A").Range("C" & i) + B
   
10.                Range("D" & i) = Sheets("B").Range("B" & j) - B
    
11.             End If
    
12.                 i = i + 1
    
13.         Loop
    
14.                 B = 0
    
15.                 j = j + 1
    
16.     Loop
    
17. MsgBox " TEST! "
    
18. End Sub

½Æ»s¥N½X