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

°ÝÃD¡A¨D±Ï~~«ô°U

°ÝÃD¡A¨D±Ï~~«ô°U

¦U¦ì¤j¤j¡A¤p§Ìªº°ÝÃD¦p¤U
­n§â111.xlsx.sheet(1).range("e5:f15")¤¤ªº¼Æ­È¡A¤À¥|¦¸¶×¥X¨ì222.xlsx.sheet(1)¤¤¨Ì§Ç±Æ¦C
¨C¤@¦¸¶×¥X«á·|§â222.xlsxÃö³¬¡A­n¶×¥X®É¦A¶}±Ò¡C
¥H¤W°ÝÃD¡A«ô°U¦U¦ì¤j¤j¡A«ü¾É¤@¤U
stone

¦^´_ 1# ªü©v

³oºØ°ÝÃD¦Û¤v¿ý»s¤@¦¸´Nª¾¹D¦p¦ó­×§ï
¤£ª¾ ¹D¦Û¤v½m²ß¤F¶Ü¡H

¥ý¨D¦³¡A¦A¨D¦n¡I

¿ý»s½d¨Ò¡G
  1. Sub Macro1()

  2.     Sheets("Sheet1").Select
  3.     Range("A1").Select
  4.     Selection.Copy
  5.     ChDir "C:\Users\Joey\Desktop"
  6.     Workbooks.Open Filename:="C:\Users\Joey\Desktop\b.xls"
  7.     Range("A1").Select
  8.     ActiveSheet.Paste
  9.     Application.CutCopyMode = False
  10.     ActiveWorkbook.Save
  11.     ActiveWindow.Close
  12.     Range("A1").Select
  13. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ ªü©v ©ó 2017-9-28 08:14 ½s¿è

¦^´_ 2# joey0415

joey0415 ¤j¤j
                          §Ú¦³¸Õ¹L¥Î¿ý»sªº¡A¦ý¬O¤£¬O§Ú­nªºµ²ªG
                           §Ú­nªºµ²ªG¬O
                           1.±qAÀɮ׽ƻs"A1:B5"¡A¶}±ÒBÀɮ׶K¨ì"A1"¡AÀx¦sBÀɮסAÃö³¬BÀÉ®×
                           2.±qAÀɮ׽ƻs"A1:B5"¡A¶}±ÒBÀɮ׶K¨ì"C1"¡AÀx¦sBÀɮסAÃö³¬BÀÉ®×
                           3.±qAÀɮ׽ƻs"A1:B5"¡A¶}±ÒBÀɮ׶K¨ì"E1"¡AÀx¦sBÀɮסAÃö³¬BÀÉ®×
                           ~¥H¤W¨BÆJ¤À¤T¦¸¿é¥X¡A¤£¬O¤@¦¸¿é¥X¡A¥i¯à§Ú¤W¦^¨S»¡²M·¡¡A©êºp~
                            §Ú°O±o¬O­n¥Î°j°é§a¡A¦ý¬O§Ú¤£·|¥Î¡A©Ò¥H¤W¨Ó¨D±Ï¡A«ô°U¤F
stone

TOP

¬Ý¤å¦rªº·N«ä¬O¡A¥Î¿ýªº¦A§ï¦¨§A­nªº¡AÀ³¸Ó¥u­n¦A¥[¤W°j°é & Àx¦s®æ¦ì¸m¥[¤W¤½¦¡

TOP

¥»©«³Ì«á¥Ñ ªü©v ©ó 2017-9-28 08:38 ½s¿è

¦^´_ 4# prin.huang

prin.huang ¤j¤j
                             ¤p§Ì§Ú¬O·s¤â¡A¥Î¤£¥X­Ó©Ò¥HµM¨Ó¡A©Ò¥H¤W¨Ó½Ð±Ð¡A«ô°U
~¥H¤U¬O§Ú¿ýªº¥¨¶°~
Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

'
    Range("E5:F15").Select
    Selection.Copy
    Range("E5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("E3").Select
    Application.CutCopyMode = False
    Range("E5:F15").Select
    Selection.Copy
    Range("G5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("A1").Select
    Application.CutCopyMode = False
    Range("E5:F15").Select
    Selection.Copy
    Range("I5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
stone

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2017-9-28 14:55 ½s¿è

¦^´_ 1# ªü©v
¥|¦¸¼g¤J¸ê®Æ
¥H¤Uµ{¦¡½X¼g¦b111.xlsmªº¼Ò²Õ¤º
  1. Sub ex()
  2. Mypath = ThisWorkbook.Path 'Àɮץؿý
  3. For i = 1 To 4
  4.    With Workbooks.Open(Mypath & "\222.xlsx") '¶}±ÒÀÉ®×
  5.       .Sheets(1).Cells(1, (i - 1) * 2 + 1).Resize(11, 2) = ThisWorkbook.Sheets(1).[E5:F15].Value '¼g¤J¸ê®Æ
  6.       .Close 1 'Ãö³¬¦sÀÉ
  7.    End With
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh


    ·PÁª©¥D¤j¤j ªº·|ÂСA¤p§Ì§Ú¦b´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ!
stone

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD