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

[µo°Ý] ±N¸ê®Æ¦Û°Ê½Æ»s¨ì¡A¥Ø«eÂI¿ïªº©Ò¦b­¶­±¨Ã¦Û°Ê¿ï¾Ü³Ì«á¤@¦æªÅ¥Õ³B¶K¤W

[µo°Ý] ±N¸ê®Æ¦Û°Ê½Æ»s¨ì¡A¥Ø«eÂI¿ïªº©Ò¦b­¶­±¨Ã¦Û°Ê¿ï¾Ü³Ì«á¤@¦æªÅ¥Õ³B¶K¤W

·Q½Ð°Ý¨Ò¦p­n±N
1.              ÀÉ®×1.xls¤ºªº²Ä¤@­Ósheet¤º²Ä¤G¦æªº¤º®e,¨Ï¥Î¥¨¶°¦Û°Ê½Æ»s¨ì¥t¤@­ÓÀÉ®×2.xls¤º©Ò¦b­¶­±ªº¦ì¸m¤W»Ý¦p¦ó¼g¦¨¥¨¶°©O

Sub ¦Û°Ê½Æ»s«È¤á©ú²Ó()
'
' ¦Û°Ê½Æ»s«È¤á©ú²Ó ¥¨¶°
'
' §Ö³tÁä: Ctrl+A
'
    Windows("¬ö¿ýªí-°ò¦.xls").Activate
    Range("A2:M2").Select
    Selection.Copy
    Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").Activate
    ActiveSheet.Paste link:=True
End Sub

TOP

¦^´_ 1# starry1314

¦]¬°ÀɮצWºÙ¥H¤Î¤À­¶¦WºÙ³£»Ý­n³Q«ü¥X
¦]¦¹§Ú°²³]ÀɮצWºÙA¥H¤Î¤À­¶¦WºÙA1³£¬O³Q«þ¨©ªºÀÉ®×

°²³]±zªº«ö¶s¦bÀɮפGªº¤À­¶¤W

¥i¥Hª½±µ¨Ï¥Î

Sub test()
    Workbooks("A").Sheets("A1").Rows(2).Copy
    EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '©Ò¦³¨Ï¥Î¤¤ªº¦C¼Æ+1
    Rows(EndRow).PasteSpecial Paste:=xlPasteValues
End Sub
PKKO

TOP

¦L¶H¤¤ªº¼gªk
Workbooks("1.xls").Sheets("A1").Rows(2).Copy  Workbooks("1.xls").Sheets("A1").cells(Workbooks("2.xls").Sheets("B1").UsedRange.Rows(1).Count + 1,1)

¦ý¦¹ªk·|³s¦P½Æ»sÀx¦s®æªº®æ¦¡¡A¦ý¤W­±¤j¤jªº¼gªk«h¥u·|½Æ»s¼Æ­È¡q.PasteSpecial Paste:=xlPasteValues¡r

TOP

¦^´_ 4# tyrone123456


    Workbooks("2.xls").Sheets("B1").UsedRange.Rows(1).Count + 1=>¥u·|­pºâ²Ä¤@¦C¨Ï¥Îªº¦C¼Æ,¦]¦¹¥Ã»·³£¬O1+1=2
¦C¼Æ¥i¯à·|¦³°ÝÃD
PKKO

TOP

¦^´_  starry1314

¦]¬°ÀɮצWºÙ¥H¤Î¤À­¶¦WºÙ³£»Ý­n³Q«ü¥X
¦]¦¹§Ú°²³]ÀɮצWºÙA¥H¤Î¤À­¶¦WºÙA1³£¬O³Q«þ ...
PKKO µoªí©ó 2015-4-16 12:04


¬O»¡§Ú­ì¥»ªº¥¨¶°«ü¥O§¹¥þ´À´«¦¨¹³§A³o¼Ëªº½d¨Ò¶Ü??
Sub test()
    Workbooks("¬ö¿ýªí-°ò¦.xls").Sheets("«È¤á©ú²Ó").Rows(2).Copy
    EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '©Ò¦³¨Ï¥Î¤¤ªº¦C¼Æ+1
    Rows(EndRow).PasteSpecial Paste:=xlPasteValues
End Sub

¹³³o¼Ë¶Ü? ¥tROW(2)ªº·N«ä¬O²Ä¤G­ÓÀÉ®×? ¥tworkbooksªº·N«ä¬O?

§Ú­ì¥»ªº¥¨¶°«ü¥O¬O¥u¯à¹F¦¨©T©wÀɦWªº¦Û°Ê½Æ»s¶K¤W,¦ýÀɦW¥u­n¤£¤@¼Ë´N¥¢±Ñ¤F~©Ò¥H·Q¼g¦¨
A½Æ»s¨ìE
B½Æ»s¨ìE1
C½Æ»s¨ìE2
¥¨¶°Àx¦bE

¤£ºÞ³Q¯N©Î«þ¨©«á³£¥i¥H¤£§¡ÀɦW,

TOP

¬O¦³³o­ÓºÃ¼{¡A¦ý¬O²z½×¤W²Ä¤@±ÆÀ³¸Ó³£­n¦³¸ê®Æ¡A¨Ò¦pID½s½Xµ¥°ß¤@©Êªº¸ê®Æ¡A¦Ó§Ú¤£¼g¨ººØ¤è¦¡¬O´¿¸g¹J¹L«D²Ä¤@±Æ¦ì¸mªºÀx¦s®æ³Q"¤£¤p¤ß"«ö¨ì¤@ªÅ¥Õ¸ê®Æ¡A¦ý¬O³o¦bÀˬd¹Lµ{¬O«ÜÃøµo²{ªº²§±`¡A¦ý«o³y¦¨¸ê®Æ¨ì¨º¤@¦C´N¸õ¦æ¡A®`§Ú£¸ª½Àˬdµ{¦¡¬O­þÃä¼g¿ù¡A³Ì«á·íµM¤~ª¾¹D¯u¥¿­ì¦]¡A¦Ó­­¨î²Ä¤@Äæ­pºâµ§¼Æ¡A´N¥i¥H¥ß§Y¬Ý¨ì°ÝÃD

TOP

ROW(2)ªº·N«ä¡G¥Nªí¸ÓSheetªº²Ä2"¦æ"
workbooksªº·N«ä¬O? ¦pªG§Aªº½Æ»s¶K¤W§@·~¬O¦b¦P¤@excelÀɮסA´N¥i¥H©¿²¤¡A¦ý­Y¬O¤£¦PexcelÀɮסA´N¹³§A³o­Ócase¬O¤£¦PÀɮפ§¶¡ªº¤º®e½Æ»s¡A´N­n¥[¤J¡A¦Ó¥Bstarryªº¼gªk·N«ä­n§â°ò¦2.xlsªº¸ê®Æ½Æ»s¨ì"¥Ø«e¬¡¤ÆªºÀɮתº¥Ø«e¨Ï¥ÎSheet¤º"

§Ú²ßºD¼g¸Ô²Ó¨Ç¡A³o¼ËDebug·|¸û²M·¡¡A¦ý¯ÊÂI¬O¦h¸¹¤@¨Ç¸ê·½
    Workbooks("¬ö¿ýªí-°ò¦.xls").Sheets("«È¤á©ú²Ó").Rows(2).Copy
    Workbooks("2.xls").Sheets("123").EndRow =  Workbooks("2.xls").Sheets("123").UsedRange.Rows.Count + 1 '©Ò¦³¨Ï¥Î¤¤ªº¦C¼Æ+1
    Workbooks("2.xls").Sheets("123").Rows(EndRow).PasteSpecial Paste:=xlPasteValues

TOP

¦^´_ 8# tyrone123456


        Sub test()
    Workbooks("¬ö¿ýªí ").Sheets("«È¤á©ú²Ó").Rows(2).Copy
    EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '©Ò¦³¨Ï¥Î¤¤ªº¦C¼Æ+1
    Rows(EndRow).PasteSpecial Paste:=xlPasteValues
End Sub

¥i¨Ï¥Î¡ã¦ý¹³   Workbooks("¬ö¿ýªí ").Sheets("«È¤á©ú²Ó").Rows(2).Copy
Åܦ¨¥u¯à¨Ï¥Î©T©wÀɦW¡ã¥i¼g¦¨±N¥¨¶°¦s¦b­þ­ÓÀɮ׸̴N½Æ»s¸Ì­±sheets("«È¤á©ú²Ó")ªº¨ì¥Ø«e©Ò¦bªº­¶­±¶Ü?
¥t¦pªG­n¦Û°Ê´¡¤J¶W³sµ²­n«ç»ò¼g©O?GOOGLE§ä¨ìªº¤èªk¥uÅܦ¨¦Û°Ê¶K¤W³sµ²,µLªkÅý¥LÂI¿ï´N¸õ¿ï¨ì·íªì½Æ»s¹L¨Óªº¨º­ÓÀɮ׸̭±

TOP

¥Ø«e¼gªk
Sub test()
    Workbooks("¬ö¿ýªí ").Sheets("«È¤á©ú²Ó").Rows(2).Copy
    EndRow = ActiveSheet.UsedRange.Rows.Count + 1 '©Ò¦³¨Ï¥Î¤¤ªº¦C¼Æ+1
    Rows(EndRow).PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Paste Link:=True
End Sub

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD