°a¤ªºµ

1. §Ú¤]¬O·s¤â¶¶«K½m²ß¤@¤U ¤£¹L³o¬q¦n¹³­þ¸Ì©Ç©Çªº  ¦ý§Ú¬Ý¤£¥X¨Ó ½Ð¤j¤j­Ì À°À°¦£ ¸Ó¦p¦ó­×§ï ·Pı ¦n¹³°j°é ¤Ó¦h ¤£¥²­nªº¥N½X ¦n¹³«Ü¦h 0.0
   
2. Public Sub ½m²ß¸ó¤u§@ªí°}¦C½m²ß()
   
3. 
   
4.     For x = 2 To Sheets.Count
   
5.         Sheets(x).Cells.Clear
   
6.         Sheets(1).Rows(1).Copy Sheets(x).Rows(1)
   
7.     Next x
   
8.    
   
9.     E = 2
   
10.     A = Array("¤T°Ó", "»·ªF", "«H¸q")
    
11.     K = Range(Cells(2, 1), Cells(2, 3).End(xlDown))
    
12.     ReDim B(LBound(K) To UBound(K))
    
13.     ReDim Preserve B(LBound(K) To UBound(K))
    
14. 
    
15.     For x = 2 To Sheets.Count
    
16.         For J = LBound(K) To UBound(K)
    
17.             For I = LBound(A) To UBound(A)
    
18.             If A(I) <> K(J, 2) Then E = 2
    
19.                 If A(I) = K(J, 2) Then
    
20.                 If Sheets(K(J, 2)).Cells(E, 1) <> "" Then E = E + 1
    
21.                     Sheets(K(J, 2)).Cells(E, 1) = K(J, 1)
    
22.                     Sheets(K(J, 2)).Cells(E, 2) = K(J, 2)
    
23.                     Sheets(K(J, 2)).Cells(E, 3) = K(J, 3)
    
24.                     E = E + 1
    
25.                 End If
    
26.             Next I
    
27.         Next J
    
28.     Exit For
    
29.     Next x
    
30.    
    
31.     Erase A, K, B
    
32.    
    
33. End Sub

½Æ»s¥N½X

°a¤ªºµ

­è¤~¸ÕµÛ§â  For x = 2 To Sheets.Count °j°é§R°£ µ²ªGµo²{ ®Ú¥»¥Î¤£¨ì ........XD

°a¤ªºµ

ReDim B(LBound(K) To UBound(K))
ReDim Preserve B(LBound(K) To UBound(K))
Erase B

³o¬q¤]¤£¥Î ....XD

°a¤ªºµ

¦^´_ 8# ssooi


    E = E + 1 ³o¬q¤]¤£¥Î .....XD  ©êºp §Ú¤]¬O·s¤â§Ú­Ì¥i¥H¤¬¬Û¾Ç²ß

°a¤ªºµ

¦^´_ 10# n7822123

ÁÂÁ n7822123 ¤j¤jªº ¤À¨É ¤p§Ì¬ã¨s¤@¤U XD
¶¶«K½Ð°Ý¬°¬Æ»ò¨Ï¥Î                 
               D = Array(K(J, 1), K(J, 2), K(J, 3))
                Sheets(K(J, 2)).Rows(E) = D
ªº®É­Ô·|¥X²{ #N/A

javascript:;
À³¸Ó¦p¦ó¼g ¤~¤£·|¥X²{ #N/A

°a¤ªºµ

¦^´_ 13# n7822123
ÁÂÁ n7822123 ªº»¡©ú §Ú©ú¥Õ¤F  ½Ð°Ý ¨º¦pªG­nÅý  A = Array("¤T°Ó", "»·ªF", "«H¸q")  Åܦ¨°ÊºA¦³¼u©Ê ¸Ó¦p¦ó¼g©O?
¦]¬°²{¦b¦³¤@­Ó°ÝÃD ´N¬O ¦pªG¤u§@ªíÅܦh¤F ¤]¥u·|¤ñ¹ï3­Ó¤u§@ªí ·Qªk¬O§â¤u§@ªí¦W¤l¥á¨ìArray()¸Ì­± ¦ý¬O¤£ª¾¹D«ç»ò¥á   Äæ ¸ò ¦C  ªº°ÝÃD §Ú¬O³o¼Ë¼g

1. Public Sub ¸ó¤u§@ªí°}¦C½m²ß()
   
2. 
   
3.     For X = 2 To Sheets.Count
   
4.         Sheets(X).Cells.Clear
   
5.     Next X
   
6.    
   
7.     A = Array("¤T°Ó", "»·ªF", "«H¸q")
   
8.     K = Range(Cells(2, 1), Cells(2, 4).End(xlDown))
   
9.     F = Cells(1, Columns.Count).End(xlToLeft).Column
   
10. 
    
11.     For J = LBound(K) To UBound(K)
    
12.         For i = LBound(A) To UBound(A)
    
13.             If A(i) = K(J, 2) Then
    
14.                 If Sheets(K(J, 2)).Cells(1, 1) = "" Then Sheets(1).Rows(1).Copy Sheets(K(J, 2)).Rows(1)
    
15.                 For D = 1 To F
    
16.                     Sheets(K(J, 2)).Cells(Rows.Count, D).End(xlUp).Offset(1, 0) = K(J, D)
    
17.                 Next D
    
18.             End If
    
19.         Next i
    
20.     Next J
    
21. 
    
22.     Erase A, K
    
23.    
    
24.     Sheets(1).Select
    
25.     Cells(1, 1).Select
    
26.    
    
27. End Sub

½Æ»s¥N½X

°a¤ªºµ

ÁÂÁ n7822123 ªº¤À¨É»P±Ð¾Ç ¤p§Ì¾Ç¨ì·sªº ªF¦è¤F ¯uªº«D±`·PÁÂ
¤U­±¬Oµ²ªG  ¯ÊÂI ¯uªºÅܺC¤F....XD ¦]¬°§Úªº°j°é¤Ó¦h¤F..   
§Ú·|ºCºC¬ã¨s n7822123¤j¤jÁÙ¦³ ·Ç´£¤j¤j©Ò¼gªº¤è¦¡
¦ý ¦³«Ü¦h¬Ý¤£À´¬O¯uªº. ¤£¹L§ÚºCºC¬ã¨s ¦pªG¤£À´ªº¦a¤è ÁÙ­n ³Â·Ð«e½ú­Ì«ü±Ð ^^"

1. Public Sub ¸ó¤u§@ªí°}¦C½m²ß()
   
2. 
   
3.     Dim A()
   
4.     For X = 2 To Sheets.Count
   
5.         Sheets(X).Cells.Clear
   
6.         ReDim Preserve A(X - 2)
   
7.         A(X - 2) = Sheets(X).Name
   
8.     Next X
   
9.    
   
10.     F = Cells(1, Columns.Count).End(xlToLeft).Column
    
11.     K = Range(Cells(2, 1), Cells(2, F).End(xlDown))
    
12.    
    
13.     For J = LBound(K) To UBound(K)
    
14.         For i = LBound(A) To UBound(A)
    
15.             If A(i) = K(J, 2) Then
    
16.                 If Sheets(K(J, 2)).Cells(1, 1) = "" Then Sheets(1).Rows(1).Copy Sheets(K(J, 2)).Rows(1)
    
17.                 For D = 1 To F
    
18.                     Sheets(K(J, 2)).Cells(Rows.Count, D).End(xlUp).Offset(1, 0) = K(J, D)
    
19.                 Next D
    
20.             End If
    
21.         Next i
    
22.     Next J
    
23. 
    
24.     Erase A, K
    
25.    
    
26.     Sheets(1).Select
    
27.     Cells(1, 1).Select
    
28.    
    
29. End Sub

½Æ»s¥N½X