GBKEE

¦^´_ 1# s3526369

1. Sub Ex()
   
2.     With Sheets("¾P³fÁ`¼Æ").Range(Sheets("¾P³fÁ`¼Æ").Cells(5, 10), Sheets("¾P³fÁ`¼Æ").Cells(64, 39))
   
3.         '**¼g¤J¤½¦¡
   
4.         .Cells = "=SumIf(¾P³f©ú²Ó!R2C2:R500C2,¾P³fÁ`¼Æ!R1C&¾P³fÁ`¼Æ!RC1,¾P³f©ú²Ó!R2C15:R600C15)"
   
5.         '**¼g¤J¤½¦¡ :¤£Åã¥Ü0
   
6.        ' .Cells = "=IF(SumIf(¾P³f©ú²Ó!R2C2:R500C2,¾P³fÁ`¼Æ!R1C&¾P³fÁ`¼Æ!RC1,¾P³f©ú²Ó!R2C15:R600C15)>0,SumIf(¾P³f©ú²Ó!R2C2:R500C2,¾P³fÁ`¼Æ!R1C&¾P³fÁ`¼Æ!RC1,¾P³f©ú²Ó!R2C15:R600C15),"""")"
   
7.        '**Âл\¤½¦¡±¼,Åã¥Ü­È
   
8.         '.Cells = .Value
   
9.     End With
   
10. End Sub

½Æ»s¥N½X