- ©«¤l
- 45
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-1-18
- ³Ì«áµn¿ý
- 2015-10-9
|
¥»©«³Ì«á¥Ñ ¹q·xÄl ©ó 2015-2-3 23:32 ½s¿è
¦^´_ 1# okdnsfht
¼g¦bAÀÉ¡BCÀÉ- Private Sub Workbook_Open()
- Rows(34).Copy
- Workbooks("B.xlsx").Activate
- Workbooks("B.xlsx").Worksheets(1).Select
- Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
- Application.CutCopyMode = False
- End Sub
½Æ»s¥N½X AÀÉ©MCÀɶ}±Ò®É¡A´N·|¦Û°Ê§â34¦Cªº¤å¦r¥[¦bBÀÉ
«e´£¬OBÀÉ¥²¶·¶}µÛ¡A¤£µM´Nn§âWorkbooks("B.xlsx").Activate§ï¦¨Workbooks Open "Àɪº¸ô®|" |
|