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

[µo°Ý] ¸ó¤u§@­¶¬d§ä¬YÄæ¦ìªº­È

[µo°Ý] ¸ó¤u§@­¶¬d§ä¬YÄæ¦ìªº­È

¦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¡z­n¥Î¬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

¥Í²£­p¹º.rar (48.3 KB)

VBA ·s¤â¶i¤Æ¤¤

¦^´_ 2# n7822123

·PÁÂN¤jªº¦^ÂÐ !  ¤w¸g¥i¥H¥Î¨Ï¥Î¡AÁÂÁÂ

End(xlUp) ªº¼gªk§Ú¤j·§ª¾¹D¡A¦ý¦]¬°§Ú­ì¥»¼gªk¦b³v¨B°õ¦æªº®É­Ô¬O¬Ý¤£¨ì²{¦b°µ¨ì­þ¸Ì¡A©Ò¥H¤@ª½¥dÃö¡C
­ì¨Óªº¼gªk¬O¨Ì¦Û¤vªí®æªº»Ý¨D¡A¦bºô¸ô¤W¬d§ä¬ÛÃöªº¼gªk¡A´NÅܱo«Ü©_©Ç¡A¦Ó¥B¤@ª½§ì¤£¨ì§Ú­nªº¸ê®Æ¡C

¦A¦¸·PÁÂÀ°¦£ !!  ¡q¡]¡Ä¡@¡Ä¡^¡r
VBA ·s¤â¶i¤Æ¤¤

TOP

¦^´_ 2# n7822123

¥t¥~½Ð±Ð¤@¤U!

R3 = ['­q³æ©ú²Ó -3¤ë'!F500].End(xlUp).Row ¤¤¡A ¬A©·³o­Ó¥Îªkªº·N«ä¬O¦b¡y­q³æ©ú²Ó-3¤ë F500 ¡z³o­Ó¦ì¸mªº·N«ä¶Ü?  ['­q³æ©ú²Ó -3¤ë'!F500]
³o­Ó¥Îªk­þ¸Ì¦³½d¨Ò©Î¼gªk¶Ü?  ºô¸ô¤W¬d¤£¨ì¡A³£¬O¥Îsheets + cells ©ÎªÌ Range¥h«ü©w¦ì¸m¡C
VBA ·s¤â¶i¤Æ¤¤

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD