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

[µo°Ý] »¼´î½Æ»s¼ÐÃD

[µo°Ý] »¼´î½Æ»s¼ÐÃD

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-13 14:45 ½s¿è

µ{¦¡½X¦C98
'Sheets("DATA").Range("A1:I1").Copy .Range("B1").Resize(1, 90)
¬O±NDATA! A1:I1ªº¼ÐÃD½Æ»s¨ì¦U¤u§@ªíªºB1:CM1
¦pªG¬O·Q±NDATA! A1:I1½Æ»s¨ì¦U¤u§@ªíªº¦¸¼Æ¡A¦U¨Ì§Ç»¼´î1¦¸¡F¡F
§Y"·Ç7¶i8"ªº½d³ò¬O.Range("B1").Resize(1, 90)¡F"·Ç6¶i7"ªº½d³ò¬O.Range("B1").Resize(1,81)¡F¡K.....¡F
"·Ç2¶i3"ªº½d³ò¬O.Range("B1").Resize(1, 45) ¡F"·Ç1¶i2"ªº½d³ò¬O.Range("B1").Resize(1,36)
½Ð°Ý¡Gµ{¦¡½XÀ³¦p¦ó½s¼g¡H
ÁÂÁ¡I
2021-0713 - »¼´î½Æ»s¼ÐÃD.rar (48.74 KB)

¦^´_ 1# ziv976688

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

n = 90
For I = 1 To 7
    ...
    ...
    Sheets("DATA").Range("A1:I1").Copy .Range("B1").Resize(1, n)
    n = n - 9

TOP

¦^´_ 2# samwang
OK¤F!
ÁÂÁ«ü¾É

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-13 17:26 ½s¿è

¦^´_ 1# ziv976688

»¼´î½Æ»s¼ÐÃD(¥DÀÉ).zip (156.66 KB)

TOP

¦^´_ 1# ziv976688


    ³o­ÓÀÉ®× ·|¦b¦P­Ó¸ô®|¤W ¨Ì·Ó´Á¼Æ³Ð ¸ê®Æ§¨

Àɮצp¤W­ÓÀÉ®× ¦P­Ó¸ê®Æ§¨¤º ´Á¼Æ ¤@¼Ë·|²£¥Í§Ç¸¹

»¼´î½Æ»s¼ÐÃD(¥DÀÉ)³Ð¸ê®Æ§¨.zip (152.52 KB)

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-13 19:22 ½s¿è

¦^´_ 5# singo1232001
¸U¤À·PÁ±z¦A­«·s½s¼gµ{¦¡~
¥u¬O1­Ó¸ê®Æ§¨¥u©ñ1­Ó®ÄªGÀÉ¡A¦³¤@ÂI¤£¤è«K^^"
±ß¤W§Ú·|¥J²Ó¬ã¨s¶Q»yªk~·P®¦^^

PS : ­ì¥DÀɪºµ{¦¡½X¤w¥i±NStrRng©M Nrange¶ñ¤Jªº¦h­Ó´Á¼Æ¤§®ÄªGÀÉ¡A¦U¥H¦WºÙ§O¦s¤J¸ê®Æ§¨¤º¡C

TOP

¦^´_ 2# samwang
¤£¦n·N«ä¡A¯à§_¦A½Ð±z­×¥¿°}¦Cªºµ{¦¡½X¡HÁÂÁ±z¡I

µ{¦¡½X¦C115~¦C124
'        Sheets(Array("·Ç7¶i8", "·Ç6¶i7", "·Ç5¶i6", "·Ç4¶i5", "·Ç3¶i4", "·Ç2¶i3")).Select
'        Sheets("DATA").Range("A" & StrRng - 1, "I" & mthcount - 1).Copy .Range("AL2").Resize(1, mthcount - StrRng + 1)
'        Sheets(Array("·Ç7¶i8", "·Ç6¶i7", "·Ç5¶i6", "·Ç4¶i5", "·Ç3¶i4")).Select
'        Sheets("DATA").Range("A" & StrRng - 2, "I" & mthcount - 2).Copy .Range("AU2").Resize(1, mthcount - StrRng + 1)
'        Sheets(Array("·Ç7¶i8", "·Ç6¶i7", "·Ç5¶i6", "·Ç4¶i5")).Select
'        Sheets("DATA").Range("A" & StrRng - 3, "I" & mthcount - 3).Copy .Range("BD2").Resize(1, mthcount - StrRng + 1)
'        Sheets(Array("·Ç7¶i8", "·Ç6¶i7", "·Ç5¶i6")).Select
'        Sheets("DATA").Range("A" & StrRng - 4, "I" & mthcount - 4).Copy .Range("BM2").Resize(1, mthcount - StrRng + 1)
'        Sheets(Array("·Ç7¶i8", "·Ç6¶i7")).Select
'        Sheets("DATA").Range("A" & StrRng - 5, "I" & mthcount - 5).Copy .Range("BV2").Resize(1, mthcount - StrRng + 1)

¥H¤Wªºµ{¦¡½XÁÙ¬O·|±N¥þ³¡ªº¸ê®Æ¤º®e¦C¥X
½Ð°Ý¡G¥¿½Tªºµ{¦¡½XÀ³¦p¦ó½s¼g¡H
ÁÂÁ±z¡I
2021-0713 - ½Æ»s«ü©w¸ê®Æ¤º®e.rar (61.24 KB)

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-13 19:55 ½s¿è

¦^´_ 6# ziv976688


    #4 ²Ä¤@½gªº¨â­ÓÀÉ®× ¥u·|©ñ¦b»P¥DÀɬۦP¸ê®Æ§¨¦P¤@¼h
    #5 ²Ä¤G½gªº¨â­ÓÀÉ®× ¤~·|·s³Ð¸ê®Æ§¨ ©ñ¨ì¤U¤@¼h¸ê®Æ§¨
   Á`¦@¬°4­Óª©¥»  ³ÐÀÉxlsx»Pxls    vs   ³Ð©Î¤£³Ð¸ê®Æ§¨

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-13 20:02 ½s¿è

¦^´_ 8# singo1232001
§Úª¾¹D¡A¤G­ÓÀ£ÁYÀɤ]³£¤U¸ü¤F¡A©Ò¥H»¡±ß¤W­n¬ã¨s©M¾Ç²ß¶Q»yªk¡C
¦A¦¸ÁÂÁ±z!·P®¦:D
PS : ¹ïVBA§ÚÁÙ«Ü"µæ"¡A¥²¶·ªá®É¶¡®ø¤Æ~½Ð¨£½Ì!ÁÂÁ±z!

TOP

¦^´_ 7# ziv976688

¤£¦n·N«ä¡A¬Ý§Aªº¨ºµ{¦¡½X¤Ó½ÆÂø¡A¤£ª¾¦p¦ó­×§ï¡A¬Ý¨ä¥Lªº¤j¤j¦³µL¦nªº¸Ñªk¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD