[µo°Ý] ·Pı«Ü²³æ«o·Q¯}ÀY-±qAÀɮתº©T©w¦Ccopy¨ìBÀÉ®×·s¼W¤@¦C

okdnsfht

·Q°µ¤@­Ó VBAµ{¦¡

±qAÀɮסA©T©w±N²Ä34¦C¡Acopy¨ìBÀɮסC

µM«á¶}CÀɮתº®É­Ô¡A¤]¤@¼Ë©T©w±N²Ä34¦C¡Acopy¨ìBÀɮסA¦ý­n·s¼W¤@¦C¡C

¨ì®É­ÔBÀɮ׸̡A´N¦³2¦C¸ê®Æ¡A¨Ó¦ÛA¡BCÀɮסK

¬Ý¦ü«Ü²³æ¡A«o·Q¯}ÀY¡K

¹q·xÄl

¦^´_ 1# okdnsfht


    ¼g¦bAÀÉ¡BCÀÉ

1. Private Sub Workbook_Open()
   
2. Rows(34).Copy
   
3. Workbooks("B.xlsx").Activate
   
4. Workbooks("B.xlsx").Worksheets(1).Select
   
5. Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
   
6. Application.CutCopyMode = False
   
7. End Sub

½Æ»s¥N½X

AÀÉ©MCÀɶ}±Ò®É¡A´N·|¦Û°Ê§â34¦Cªº¤å¦r¥[¦bBÀÉ
«e´£¬OBÀÉ¥²¶·¶}µÛ¡A¤£µM´N­n§âWorkbooks("B.xlsx").Activate§ï¦¨Workbooks Open "Àɪº¸ô®|"