ªð¦^¦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 : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD