GBKEE

¦^´_ 3# Jared
¦p¦ó¾ã¦X°_¨Ó,¥i¦b»¡²M·¡¨Ç¶Ü?

GBKEE

¦^´_ 7# Jared
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As String, Ar(1 To 3), A(), i As Integer, ii As Integer, X As Integer
   
4.     Rng = "A1:C10"                                          '¨î©w©Ò¦³Àɮצb¬Û¦Pªº½d³ò
   
5.     Ar(1) = Workbooks("A.XLS").Sheets(1).Range(Rng).Value   'Àɮ׬O¶}±Òªº
   
6.     Ar(2) = Workbooks("B.XLS").Sheets(1).Range(Rng).Value
   
7.     Ar(3) = Workbooks("C.XLS").Sheets(1).Range(Rng).Value
   
8.     ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))
   
9.     For X = 1 To UBound(Ar(1), 2)
   
10.         For i = 1 To UBound(Ar(1), 2)
    
11.             For ii = 1 To UBound(Ar(1), 1)
    
12.                 If ii = 1 Then
    
13.                     A(ii, i) = Ar(X)(ii, i)
    
14.                 Else
    
15.                     A(ii, i) = IIf(A(ii, i) <> "" And Ar(X)(ii, i) <> "", "¸ê®Æ¦³»~", A(ii, i) & Ar(X)(ii, i))
    
16.                 End If
    
17.             Next
    
18.         Next
    
19.     Next
    
20.     Workbooks("Á`ªí·J¾ã.xls").Sheets(1).Range(Rng) = A
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# Jared

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As String, Ar(1 To 3), A(), i As Integer, ii As Integer, X As Integer
   
4.     '­n¦X¨Ö ¤T­ÓÀÉ®×.  -> Ar(1 To 3)
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7.     A = Array("D:\¤u§@Á`ªí\¤p©ú.xls", "D:\¤u§@Á`ªí\¤pµØ.xls", "D:\¤u§@Á`ªí\¤p¬ü.xls")   '¸ô®|¤ÎÀɦW½Ð¨Ì»Ý¨D­×§ï
   
8.     Rng = "A1:E10"                    '©w©Ò¦³Àɮצb¬Û¦Pªº½d³ò
   
9.     For i = 0 To UBound(A)
   
10.         With Workbooks.Open(A(i)).Sheets(1)                    'With ³¯­z¦¡ ¦b¤@­Ó³æ¤@ª«¥ó©Î¤@­Ó¨Ï¥ÎªÌ¦Û­q«¬ºA¤W°õ¦æ¤@¨t¦Cªº³¯­z¦¡¡C
    
11.             Ar(i + 1) = .Range(Rng).Value                         '¤Gºû°}¦C:²Ä¤@ºû = ¤u§@ªíªº¦C,²Ä¤Gºû = ¤u§@ªíªºøó,
    
12.             .Parent.Close
    
13.         End With
    
14.     Next
    
15.     ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))   '°}¦C ­«·s°t¸m ºû¼Æ¤Îºû¼Æ¤¸¯À¤§¤W¤U­­¯Á¤Þ­È-> "A1:E10" ªº¤j¤p
    
16.     For X = 1 To UBound(Ar)
    
17.         For i = 1 To UBound(Ar(1), 2)                       'Äæ
    
18.             For ii = 1 To UBound(Ar(1), 1)                  '¦C
    
19.                 If ii = 1 Or i = 1 Then
    
20.                     A(ii, i) = Ar(X)(ii, i)                 '²Ä1¦C ©Î ²Ä1øó
    
21.                 Else
    
22.                     If Ar(X)(ii, i) <> "" Then A(ii, i) = A(ii, i) + 1  '¦³¸ê®Æ + 1
    
23.                 End If
    
24.             Next
    
25.         Next
    
26.     Next
    
27.     Workbooks("®È¹C¦aÂI²Î­p.xls").Sheets(1).Range(Rng) = A
    
28.     Application.ScreenUpdating = True 'µ²§ô«á§ó·s¿Ã¹õ
    
29.     Application.DisplayAlerts = True
    
30. End Sub

½Æ»s¥N½X