ªð¦^¦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¤Æ¤¤

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-3-28 09:19 ½s¿è

¦^´_ 1# JT1221


§Aª¾¹DEnd(xlup)ªº·N«ä¶Ü???  End¬O¥Î¨Ó§ä "¦³­È" ªºÀx¦s®æ

§A"­q³æ©ú²Ó -4¤ë"¸Ì­± 46,47,48¦C¥»¨­¬O¨S¦³­Èªº¡A

¦ý¬Oµ{¦¡¶ñ§¹¤§«á¡A´NÅܦ¨¦³­È¤F¡A¦A¥ÎEnd´N·|§ì¨ì¤£¦P¦C!

¤£·|¦³¤H¦P®É¥ÎEnd¥ÎªkµM«á¤S¶ñ­È¡A¦]¬°§A­n«Ü²M·¡²{¦b"µ{¦¡"¤w¸g§â­È¶ñ¨ì­þ¤@®æ¡A

¨Ì§AªºÅÞ¿è¡A­×§ï§Aªº¼gªk¦p¤U(½Ð¥ý§â "­q³æ©ú²Ó -4¤ë" G46,G47,G48ªº¤½¦¡§R°£)


Sub EX1()
Sheets("­q³æ©ú²Ó -4¤ë").Activate
With Sheets("­q³æ©ú²Ó -3¤ë")
  For C = 7 To 31
    Cells(500, C).End(xlUp).Offset(3) = .Cells(500, C).End(xlUp).Offset(-2)
    Cells(500, C).End(xlUp).Offset(1) = .Cells(500, C).End(xlUp).Offset(-1)
    Cells(500, C).End(xlUp).Offset(1) = .Cells(500, C).End(xlUp)
  Next
End With
End Sub



³o¼Ë¼gµ{¦¡§O¤H¤j·§¤]«ÜÃøÀ´¡A¦]¬°¤£·|¦³¤HÃä¥ÎEndÃä¶ñ­È.......

¦pªG§â¤W­±3¦æµ{¦¡¹ï½Õµ²ªG·|¤j¤£¦P¡A´£¨Ñ¤@­Ó¤ñ¸û"¥¿±`"ªº¼gªk¦p¤U



Sub EX2()
'§ä´MFÄd "®w¦s=¤w±Æ¥Í²£-«È¤á­q³æ" ³o¦C
R3 = ['­q³æ©ú²Ó -3¤ë'!F500].End(xlUp).Row
R4 = ['­q³æ©ú²Ó -4¤ë'!F500].End(xlUp).Row
Sheets("­q³æ©ú²Ó -4¤ë").Activate
With Sheets("­q³æ©ú²Ó -3¤ë")
  For C = 7 To 31
    Cells(R4 + 3, C) = .Cells(R3 + 3, C)
    Cells(R4 + 4, C) = .Cells(R3 + 4, C)
    Cells(R4 + 5, C) = .Cells(R3 + 5, C)
  Next
End With
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 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

¦^´_ 4# JT1221

³o¬O²¼g

R3 = ['­q³æ©ú²Ó -3¤ë'!F500].End(xlUp).Row

µ¥¦P©ó

R3=sheets("­q³æ©ú²Ó -3¤ë").range("F500").End(xlUp).Row
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD