ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý Ãö©ó¥[Á`°ÝÃD

¦^´_ 6# register313
  1. Sub xx()
  2.     With Range("b2")
  3.         .End(xlDown).Offset(1) = Application.Sum(Range(.Cells(1), .End(xlDown)))
  4.     End With
  5. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD