Hsieh

¦^´_ 1# voyageellen

1. Sub Mysumif()
   
2. Dim abc1 As String, abc2 As String
   
3.   Cells.Find(What:="¥N¸¹").Offset(1, 0).Activate
   
4.     a = ActiveCell.Row
   
5.   
   
6.   ActiveCell.End(xlDown).Select
   
7.     c = ActiveCell.Row
   
8.   
   
9.   Cells.Find(What:="¥N¸¹").Offset(1, 0).Activate
   
10.     p = ActiveCell.Cells.Column
    
11.   
    
12.    abc1 = Range(Cells(a, p), Cells(c, p)).Address
    
13.   
    
14.    abc2 = Range(Cells(a, p + 1), Cells(c, p + 1)).Address
    
15.   
    
16.   Range("D1").Formula = "=sumif(" & abc1 & ",""BI""," & abc2 & ")"
    
17. End Su

½Æ»s¥N½X