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

[µo°Ý] ¦p¦óÂ^¨ú¦h­ÓExcelÀɤ¤ªºÄæ¦ì¨ì¤@­ÓExcelÀɸÌ

[µo°Ý] ¦p¦óÂ^¨ú¦h­ÓExcelÀɤ¤ªºÄæ¦ì¨ì¤@­ÓExcelÀɸÌ

½Ð°Ý,§Ú¦³¦h­ÓExcel file,¤À§O¬°A.xls , B.xls ...µ¥

­n±NA.xlsªº²Ä2Äæ~5Äæ½Æ»s¨ì·sªºxlsªºSheet1¡AB.xls¤@¼Ë±q²Ä¢±Äæ¡ã²Ä5Äæ±µ¦b«á­±¡AC.xls¨Ì§Ç¤U¥h.....

½Ð°Ý­n«ç»ò¥ÎVBA¼g©O>?

°²¦p¥u½Æ»s3,5,10,11³oºØ¤£³sÄòÄæ¦ì¡A·|«Ü½ÆÂø¶Ü¡H

½Ð¦U¦ì¥ý¶i«ü±Ð¤@¤U¡AÁÂÁ¡ã

¦^´_ 1# 3171jj
Sub example2()
    Dim f, ar, r, fname
   
    f = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls),*.xls", Title:="¿ï¾Ü¦h­ÓÀÉ®×", MultiSelect:=True)
    If Not IsArray(f) Then Exit Sub
        
    Application.ScreenUpdating = False
    '»Ý­n¥ý«Ø¤@­Ó¥s"·J¾ã"ªº¤u§@ªí
    r = 1
    For Each fname In f
        With Workbooks.Open(fname)
            .Sheets(1).Range("3:3,5:5,10:10,11:11").Copy ThisWorkbook.Sheets("·J¾ã").Cells(r, "A")
            r = r + 4   '¨C¦¸·s¼W4¦C
            .Close False
        End With
    Next
    Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 2# stillfish00

ÁÂÁÂstillfish00¤j¤jªºµ{¦¡,¦A½Ð±Ð¤@¤U,¦pªG­nÅý²Ä¤GÄæ½Æ»sªº¸ê®Æ¸ò¦b²Ä¤@Äæ«á­±ªº¦C,­n¦p¦ó§ïµ{¦¡½X©O>?  ÁٽЦh¦h«ü±Ð

­ì¥»µ{¦¡°õ¦æ§¹
²Ä¤@Äæ
²Ä¤GÄæ
²Ä¤TÄæ
²Ä¥|Äæ

°õ¦æ§¹­n§ï¦¨
²Ä¤@Äæ ²Ä¤GÄæ ²Ä¤TÄæ ²Ä¥|Äæ

TOP

¦^´_ 3# 3171jj
°²¦p¥u½Æ»s3,5,10,11³oºØ¤£³sÄòÄæ¦ì

³oÃ䪺3,5,10,11¬O«ü A3,A5,A10,A11 ÁÙ¬O¾ã¦æ??

TOP

¦^´_ 4# stillfish00

¾ã¦æ
A3,B3,C3.........
A5,B5,C5.........

TOP

¦^´_ 5# 3171jj
A3,B3,C3.........¨ì­þ¸Ì ?(¤ñ¤è»¡¨ìG3) ³o¼Ë¤~¯à°µ
¯àªþÀɮקó¦n

¤£µM¤£¾å±o¤U¤@­ÓÀÉ®×(B.xls)ªº¸ê®Æ­n±µ¦b­þ­Ó¦ì¸m

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD