ªð¦^¦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 : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD