- ©«¤l
- 9
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »O¥_
- µù¥U®É¶¡
- 2018-10-25
- ³Ì«áµn¿ý
- 2023-9-8
|
¦U¦ìª©¤j¦n
¹J¨ì¤@Ó°ÝÃD©M¼gªk½Ð¦U¥ý¶i«ü¾É !! ¥ý·PÁ¤j®a~~
°ÝÃD¡G²Ä¤GÓ¤u§@¶ªº G46 = ²Ä¤@Ó¤u§@¶G56Äæ¦ì (¦]¬°¡yÄæ¡z¬O©T©wªº¡A¦ý¡y¦C¡zn¥Î¬d§äªº¡A´N¬OGÄ檺˼ƤT¦C¡F¦Ó¥B¹ê»Ú¤u§@¶¦³«Ü¦h)¡A¦A³Â·Ð¤j®aÀ°¦£! ÁÂÁÂ
¥H¤U¬O¦Û¤v¬ã¨sªº¡A¦ý³£§ä¤£¨ì§ÚnªºÄæ¦ì
Public Sub Sum()
For k = 7 To 31
Sheets("q³æ©ú²Ó -4¤ë").Cells(500, k).End(xlUp).Offset(3) = Sheets("q³æ©ú²Ó -3¤ë").Cells(500, k).End(xlUp).Offset(2).Value
Sheets("q³æ©ú²Ó -4¤ë").Cells(500, k).End(xlUp).Offset(2) = Sheets("q³æ©ú²Ó -3¤ë").Cells(500, k).End(xlUp).Offset(1).Value
Sheets("q³æ©ú²Ó -4¤ë").Cells(500, k).End(xlUp).Offset(1) = Sheets("q³æ©ú²Ó -3¤ë").Cells(500, k).End(xlUp).Value
Next
End Sub |
|