n7822123

¦^´_ 4# BV7BW


½Æ»s¨ì¥t¤@Àɮפu§@ªí«hµLªk¶i¦æ.¤£ª¾­þ¸Ì¿ù»~

¤G¼Óµ{¦¡¬O¹w³]§Aªº¿é¥XÀÉ®× "­q³f©ú²Ó¦sÀÉ.xlsm" ¬O¥¼¶}±Òª¬ºA

¦pªG§A­ì¥»´N¶}±Ò¡Aµ{¦¡­«½Æ¶}±Ò·|¦Û°Ê¨ú®ø½Æ»sª¬ºA¡A¤]´N¨S¿ìªk¶K¤W¤F

8¼Óµ{¦¡¼W¥[¼u©Ê¡A­ì¥»¦³¶}±Ò¡B¨S¶}±Ò³£¾A¥Î (¼u©Ê¶V¤j¡A³q±`µ{¦¡½X¶Vªø¡A©Ò¥H½ÐºÉ¶q±Ô­z²M·¡)

¨Ã­×§ï¥þ¸ê®Æ½Æ»s(¼ÐÃD°£¥~)¡A¦ý¬Oµ{¦¡µ²§ô¡A¬O¹w³]²Î¤@§â¿é¥XÀÉÃö³¬~

¥t¥~§Ú¬Ý§A«Ü¦h¥¨¶°«ö¶s³£³]¦b "­q³f©ú²Óªí"¡A©Ò¥H§Úªºµ{¦¡¤]¬O¹w³]¦b¨º¸Ì

µ{¦¡°õ¦æ«e¡A½Ð¤Á¦^"­q³f©ú²Óªí"¡A¦b¤£¦P¬¡­¶Ã¯ª¬ºA¡A8¼Óµ{¦¡ÁÙ¬O·|¥X¿ù(§ä¤£¨ìCopy¨Ó·½)

n7822123

¦^´_ 4# BV7BW

¶}±Ò­q³f©ú²Óªí¡A°õ¦æ¥H¤Uµ{¦¡

­q³f©ú²Ó¦sÀÉ ¦³¶}±Ò¡B¨S¶}±Ò¡AÀH·N

¸Õ¸Õ¬Ý

Sub Test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
[­q³f©ú²Óªí!A1].CurrentRegion.Offset(1).Copy
[©ú²Ó¦sÀÉ!A1].End(4)(2).PasteSpecial
'===¥H¤U¬°½Æ»s¨ì¥t¤@Àɮפu§@ªí===
oPath$ = ThisWorkbook.Path   '¦Û©w¿é¥X¸ô®|
oFile$ = "­q³f©ú²Ó¦sÀÉ.xlsm"     '¦Û©w¿é¥XÀɦW
oSNm$ = "­q³f©ú²Óªí¦sÀÉ"        '¦Û©w¿é¥Xªí¦W
On Error Resume Next
Set oWb = Workbooks(oFile$)
If Err <> 0 Then Err.Clear: Set oWb = Workbooks.Open(oPath & "\" & oFile)
If Err <> 0 Then MsgBox "§ä¤£¨ì¿é¥XÀÉ '" & oPath & "\" & oFile & "'¡A½Ð½T»{!": GoTo Over
On Error GoTo 0
oWb.Sheets(oSNm).[A1].End(4)(2).PasteSpecial  '½Æ»s¨ì¥t¤u§@ªí(¤£¦PÀÉ®×)
oWb.Close 1: Set oWb = Nothing
Over: Application.CutCopyMode = False
End Sub

BV7BW

¦^´_ 6# Andy2483
·PÁÂ anby2483 ¤j¤j

ÁÂÁ§A

Andy2483

¦^´_ 5# BV7BW


    ¸ô¹L ¯Â¸gÅç¤À¨É¡I

BV7BW

¦^´_ 3# Andy2483
·PÁÂ anby2483 ¤j¤j §A¦n

·PÁ ¤j¤j©Ò´£¨Ñ¸Ñµª

©êºp.¦]³æ¯Â½Æ»s¶K¤W.
¬GµLªk´ú¸Õ anby2483 ¤j¤j «ü¾É¶µ¥Ø¶i¦æ´ú¸Õ
     ·PÁÂ anby2483 ¤j¤j
      ÁÂÁ§A

BV7BW

¦^´_ 2# n7822123
·PÁ n7822123 ªüÀs¤j¤j

¸g´ú¸Õ«á.½Æ»s¦Ü¥t¤@¤u§@ªí"©ú²Ó¦sÀÉ"¥u¦³1¦æ.¬O§_¥i¾ã¤u§@ªí"­q³f©ú²Óªí"¤¤©Ò¦³¸ê®Æ1¦¸¥þ½Æ»s¦Ü"©ú²Ó¦sÀÉ"¤¤
¨Ã"½Æ»s¶K¤W¸ê®Æ®É¥H¤U1¦æ±µ¤W¶K¤W"

½Æ»s¨ì¥t¤@Àɮפu§@ªí«hµLªk¶i¦æ.¤£ª¾­þ¸Ì¿ù»~
»Ý¨D¬O:±N"­q³f©ú²Óªí"¤¤©Ò¦³¸ê®Æ½Æ»s¦Ü¥t¤@ÀÉ®×"­q³f©ú²Ó¦sÀÉ"¤¤¤u§@ªí"­q³f©ú²Óªí¦sÀÉ"
¨Ã"½Æ»s¶K¤W¸ê®Æ®É¥H¤U1¦æ±µ¤W¶K¤W"

   ÁÂÁ  n7822123 ªüÀs¤j¤j «ü¾É

Andy2483

¦^´_ 1# BV7BW


¥tÃþºÞ²zªí¨Ñ°Ñ¦Ò!
1.¦pªG¸ê®Æ¶q¤£¤j! «Øij¤£»Ý­n©î¦¨¨â¥÷ªí! ¥Î¿z¿ï¤è¦¡§Y¥i°Ï§O¥X³f.¥¼¥X³f©Î¨ú®ø­q³æ¡Kµ¥         ¾ú¥v¸ê®Æ¬d¸ß¤]¤è«K                                                                                                               
2.«Ü¦hªÅÄæ¦ì¬O³Æ¥ÎÄæ! ¥i¤è«K¼W¥[¸ê®ÆÄæ¥B¤£¥²­×§ïµ{¦¡½X!                                                                                                               
3.µ½¥Î¿z¿ï¥\¯à!                                                                                                               
¥H¤W¨Ñ°Ñ¦Ò!

n7822123

¦^´_ 1# BV7BW


§AÁ¿ªº¦³¨ÇÅ¢²Î~

¤j·§¼g¤@­Óµ¹§A¡A¦b"­q³f©ú²Óªí"ÀH·N¿ï¾Ü¦³¸ê®Æªº¤@®æ¡A°õ¦æ¥H¤Uµ{¦¡

§Y¥i½Æ»s¸Ó¦C¡A¨ì¦PÀÉ¥t1¤u§@ªí¡A¥H¤Î¤£¦PÀɪº¤u§@ªí

µ{¦¡¹w³]¨â­ÓÀɮ׳£¦b¦P¤@­Ó¸ê®Æ§¨¤U(¥i¦Û¦æ½Õ¾ãµ{¦¡¤ºªº ¿é¥X¸ô®|¡B¿é¥XÀɦW)

Sub Test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Ri& = Selection.Row
Cn& = [A1].End(2).Column
Cells(Ri, 1).Resize(, Cn).Copy
[©ú²Ó¦sÀÉ!A1].End(4)(2).PasteSpecial  '½Æ»s¨ì¥t¤u§@ªí(¦PÀÉ®×)
'===¥H¤U¬°½Æ»s¨ì¥t¤@Àɮפu§@ªí===
oPath$ = ThisWorkbook.Path   '¦Û©w¿é¥X¸ô®|
oFile$ = "­q³f©ú²Ó¦sÀÉ.xlsm"     '¦Û©w¿é¥XÀɦW
On Error Resume Next
Set oWb = GetObject(oPath & "\" & oFile)    '­I´º¶}±Ò
If Err <> 0 Then MsgBox "§ä¤£¨ì¿é¥XÀÉ '" & oPath & "\" & oFile & "'¡A½Ð½T»{!": GoTo Over
On Error GoTo 0
oWb.Sheets(1).[A1].End(4)(2).PasteSpecial  '½Æ»s¨ì¥t¤u§@ªí(¤£¦PÀÉ®×)
Windows(oFile).Visible = True  'Ãö³¬«e¨ú®ø­I´ºÁôÂÃ
oWb.Close 1: Set oWb = Nothing
Over: Application.CutCopyMode = False
End Sub