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

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

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

·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 ©ó 2015-2-3 23:32 ½s¿è

¦^´_ 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 "Àɪº¸ô®|"

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD