[µo°Ý] EXCEL ¥¨¶° ¨ç¼Æ À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~

av8d

1.     Range("B4:B5").Select
   
2.     ActiveCell.FormulaR1C1 = _
   
3.         "=SUM(RC[3]:R[1]C[3],RC[6]:R[1]C[6],RC[9]:R[1]C[9],RC[12]:R[1]C[12],RC[15]:R[1]C[15],RC[18]:R[1]C[18],RC[21]:R[1]C[21],RC[24]:R[1]C[24],RC[27]:R[1]C[27],RC[30]:R[1]C[30],RC[33]:R[1]C[33],RC[36]:R[1]C[36],RC[39],R[1]C[39],RC[42]:R[1]C[42],RC[45]:R[1]C[45],RC[48]:R[1]C[48],RC[51]:R[1]C[51],RC[54]:R[1]C[54],RC[57]:R[1]C[57],RC[60]:R[1]C[60],RC[63]:R[1]C[63],RC[66]:R[2]C" & _
   
4.         "]C[66],RC[69]:R[1]C[69],RC[72]:R[1]C[72],RC[75]:R[1]C[75],RC[78]:R[1]C[78],RC[81]:R[1]C[81],RC[84]:R[1]C[84],RC[87]:R[1]C[87],RC[90]:R[1]C[90],RC[93]:R[1]C[93])"
   
5.     Range("B4:B21").Select
   
6.     Selection.FillDown
   
7.    
   
8.     Range("E4").Select
   
9.     ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
   
10.     Range("E4:E21").Select
    
11.     Selection.FillDown

½Æ»s¥N½X

½Ð±Ð¦U¦ì¦Ñ®v¡A¸U¤À·P¿E¡I

av8d

§ä¨ì°ÝÃD¤F¡A­ì¨Ó¬O¨ì¹F¤@©w¨ç¼Æ·|Åý¤½¦¡¥X¿ùªºBUG¡A¤w¸Ñ¨M¡A¸U¤À·PÁ¡I