GBKEE

¦^´_ 3# dechiuan999

1. Sub Ex()
   
2.     Dim MySum As String
   
3.     MySum = "a1:b8"
   
4.     With Range(MySum).Columns(2)
   
5.         .Cells(.Rows.Count + 1) = Application.Sum(.Offset(1).Resize(.Rows.Count - 1))
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦A´£¨Ñ¤@­Ó»yªk¡G
   = "=Sum(" & Application.Index([MySum], , 2).Address & ")"
oobird µoªí©ó 2010-9-20 15:30

¼Ó¥D»¡¹L: ¤p§Ì¦³¤@°ÝÃD·Q½Ð°Ý¦b¤@¤u§@ªí¤º«ü©w¤F©w¸q¦WºÙ¬°¡G mySum
¥iª½±µ¥Î¤u§@ªí¤½¦¡ [b9] = [Sum(Index(MySum, , 2))]