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

[µo°Ý] VBA¥[Á`°ÝÃD

¦^´_ 1# sandra_wang
  1. Sub nn()
  2. For i = 2 To 4
  3.   Set a = Cells(1, 9)
  4.    Cells(i, 2) = Application.Sum(Range(a.Offset(i - 1), a.Offset(i - 1).End(xlToRight)))
  5. Next
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# FAlonso

³o·|¦³¤@­Ó¯ÊÂI
Äæ¦W­^¤å¬O2­Ó¦r®É´N¥X¿ù
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD