kimbal

¦^´_ 7# sky00264
­ÉDIE¥Sªº¨Ó§ï¤@¤U

1. Sub ¥[Á`()
   
2. 
   
3. Dim ws As Worksheet
   
4.     For Each ws In ThisWorkbook.Sheets '±q²Ä¤@­Ó°µ¨ì³Ì«á¤@­Ó¤u§@­¶
   
5.         With ws.[A65536].End(xlUp).Offset(1, 3)
   
6.             '3¬O²Ä3¦æ¶}©l¥[Á`ªº·N«ä
   
7.             '[A65536].End(xlUp).Row °»´úAÄæ³Ì«á¤@¦C¼Æ¦r, BÄ檺¸Ü¬O [B65536]....
   
8.            .Formula = "=Sum(" & Range(Cells(3, 4), Cells(ws.[A65536].End(xlUp).Row, 4)).Address & ")"
   
9.             '¤W©³½u¥[¤UÂù©³½u
   
10.             .Borders(xlEdgeTop).LineStyle = xlContinuous
    
11.             .Borders(xlEdgeBottom).LineStyle = xlDouble
    
12.         End With
    
13.     Next

½Æ»s¥N½X