¦hµ§EXECL ¤§¸ê®Æ,¦X¦b¤@°_

tomking

EX:

1.   1.XLS ¤§SHEET1 ­¶­±  A1:A   D3: B
                                        A2:1   B2: 2 C2: 3  D2: 4
                                        ..
                                       ..
                                      ..

2.  rt.XLS ¤§SHEET1 ­¶­±  A1:B   D3: R
                                        A2:3   B2: 9 C2: 8  D2: 6  

3. ...

4..  

¦X¦b¤@°_,  
Åܾã­ÓLIST

GBKEE

¦^´_ 1# tomking
¦X¦b¤@°_,  Åܾã­ÓLIST
¦X¦b­þ¸Ì­n»¡²M·¡

mark15jill

¦^´_ 1# tomking


    ¤è«K¥Î¤@­ÓÀÉ®×·í¨Ò¤l»¡©ú¶Ü...
¤£µM³o¼Ë«ÜÅ¢²Î

oobird

¸ê®Æ~¶×¤J¥~³¡¸ê®Æ

tomking

ªþ¤Wªþ¥ó... ·PÁÂ.

GBKEE

¦^´_ 5# tomking
»Ý¨D.xls,OS124.xls,OS123.xls µ¥³£¶}±Òªºª¬ºA¤Uªºµ{¦¡½X

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim MyBook As Workbook, B As Workbook, R As Range, i As Long
   
4.     Set MyBook = Workbooks("»Ý¨D.XLS")
   
5.     For Each B In Workbooks   '
   
6.         If B.Name <> MyBook.Name Then
   
7.             With B.Sheets(1)
   
8.                 For i = 4 To .Cells(Rows.Count, "A").End(xlUp).Row
   
9.                     Set R = MyBook.Sheets("LIST").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
10.                     R.Resize(, 4) = Array(.[C1], .[E1], .[I2], .[A2])
    
11.                     R.Offset(, 4).Resize(, 11) = .Range(.Cells(i, "A"), .Cells(i, "K")).Value
    
12.                 Next
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

tomking

¦^´_ 6# GBKEE


    DEAR GRKEE

     ¨C­Ó»Ý¨úªºEXECEL Àɤ¤,¥u¦³¤@­Ó­¶­±, ¬O§_¦³¾÷·|,À°¦£§ï¦¨,¤£¥Î¶},¨Ó·½DATA EXCELÀÉ¡A§Y¥i¨úDATA  
     ¬O§_¦³¾÷·|,¥ý±N¨Ó·½DATA ¥ýÂন.csv,   ¦A¨údata.

    ¥H¤W,½Ð¦bÀ°¦£

GBKEE

¦^´_ 7# tomking
"§Y¥i¨úDATA       ¬O§_¦³¾÷·|,¥ý±N¨Ó·½DATA ¥ýÂন.csv,   ¦A¨údata. " ¬Ý¤£À´°Ú
Àɮפ@©w­n¶}±Ò ¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Range, i As Long, ii As Integer
   
4.     With Application.FileDialog(msoFileDialogOpen)  'ÀÉ®×¹ï¸Ü¤è¶ô°õ¦æ­ÓÅé
   
5.         .AllowMultiSelect = True                    '¥i½Æ¿ïÀÉ®×
   
6.         .InitialFileName = "D:\TEST"                '¥i­×§ï¬°§A­n¶}±Òªº¥Ø¿ý
   
7.         .Show                                       'Åã¥ÜÀÉ®×¹ï¸Ü¤è¶ô
   
8.         If .SelectedItems.Count >= 1 Then           '¿ï¾ÜªºÀÉ®×¼Æ
   
9.             For i = 1 To .SelectedItems.Count       '¨Ì§Ç¦b¿ï¾ÜªºÀÉ®×
   
10.                 With Workbooks.Open(.SelectedItems(i))  '¶}±ÒÀÉ®×
    
11.                     With .Sheets(1)
    
12.                         For ii = 4 To .Cells(Rows.Count, "A").End(xlUp).Row
    
13.                             Set R = Workbooks("»Ý¨D.XLS").Sheets("LIST").Cells(Rows.Count, "A").End(xlUp).Offset(1)
    
14.                             R.Resize(, 4) = Array(.[C1], .[E1], .[I2], .[A2])
    
15.                             R.Offset(, 4).Resize(, 11) = .Range(.Cells(ii, "A"), .Cells(ii, "K")).Value
    
16.                         Next
    
17.                     End With
    
18.                     .Close False   'Ãö³¬Àɮפ£¦sÀÉ
    
19.                 End With
    
20.             Next
    
21.         End If
    
22.     End With
    
23. End Sub

½Æ»s¥N½X

tomking

DEAR GBKEE

THS.