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

[µo°Ý] ¦P¤@Àɮפº ¤£¦P¤À­¶½Æ»s¶K¤W

[µo°Ý] ¦P¤@Àɮפº ¤£¦P¤À­¶½Æ»s¶K¤W

½Ð±Ð¦U¦ì¤j¤j¦p¦ó±N¤ôªG¡B½­µæ¡B¦×Ãþ¤T­Ó¤À­¶¸ê®Æ¨Ì§Ç¥HVBA¤è¦¡¶K¦ÜÁ`ªí(¶K¤W­È)

¤ôªG8­Ó«~¶µ¡A¶K¤WÁ`ªí½d³òA2:C9

½­µæ12­Ó«~¶µ¡A§P§O¤ôªG¸ê®Æ¤w¥e¾ÚÁ`ªí½d³òA2:C9¡A©Ò¥H±qA10¶}©l¶K¤W¡A¶K¤WÁ`ªí½d³òA10:C21

¦×Ãþ4­Ó«~¶µ¡A§P§O½­µæ¸ê®Æ¤w¥e¾ÚÁ`ªí½d³òA10:C21¡A©Ò¥H±qA22¶}©l¶K¤W¡A¶K¤WÁ`ªí½d³òA22:C25

Àµ½Ð¦U¦ì¤j¤j¸Ñ´b¨ó§U

javascript:;

javascript:;
Image 1.png

½Æ»s¶K¤WVBA½Ð±Ð.rar (10.02 KB)

Sub TEST()
Dim Sht As Worksheet
For Each Sht In Sheets
    With Sht
         If InStr("¤ôªG/½­µæ/¦×Ãþ", .Name) = 0 Then GoTo 101
         Range(.[C2], .[A65536].End(xlUp)).Copy [Á`ªí!A65536].End(xlUp)(2)
    End With
101: Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD