ªð¦^¦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 : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD