[µo°Ý] for ±_ª¬°j°é ¹Bºâ³t«×¦³ÂI¤[½Ð°Ý¸Ó¦p¦ó§ïµ½

s3526369

1. Sub ¾P³f©ú²ÓÁ`¼Æ()
   
2.     Dim x As Long
   
3.     With ¾P³fÁ`¼Æ
   
4.     For i = 5 To 64
   
5.         For c = 10 To 39
   
6.          x = WorksheetFunction.sumif(Sheets("¾P³f©ú²Ó").Range("B2:B500"), Sheets("¾P³fÁ`¼Æ").Cells(1, c) & Sheets("¾P³fÁ`¼Æ").Cells(i, 1), Sheets("¾P³f©ú²Ó").Range("O2:O600"))
   
7.                If Sheets("¾P³fÁ`¼Æ").Cells(i, c) <> x Then
   
8.                    Sheets("¾P³fÁ`¼Æ").Cells(i, c) = x
   
9.                  End If
   
10.             Next
    
11.            Next
    
12.         End With
    
13.   
    
14.             End Sub

½Æ»s¥N½X