samwang

¦^´_ 4# °a¤ªºµ


    ¬Ý¤F­ã¤jª©¥D±`¨Ï¥Î¦¹¤èªk¡A¦r¨å¥[¤J""¦r¦ê¡A¥i¥H¥[§Ö°õ¦æ³t«×
    ¦p¦³¤£¹ï½Ð¦U¦ì«e½å«ü±Ð¡A·PÁ¡C

°a¤ªºµ

¦^´_ 3# samwang


·PÁ samwang «e½úªº«ü¾É ¤p§Ì¨ü¯q¨}¦h  ½Ð°Ý  samwang«e½ú  T & ""  ¬°¬Æ»ò­n¦ê³sªÅ¥Õ  & "" ªº¥Î·N¬O¬Æ»ò
¥i§_»¡©ú¤@¤U  §Ú¤£¤Ó²z¸Ñ ¦]¬°¦r¨å¤£¬O¨º»òª½Æ[

samwang

¦^´_ 1# abc9gad2016

½Ð´ú¸Õ¬Ý¬Ý¡A·PÁ¡C

Sub tt()
Set xD = CreateObject("Scripting.Dictionary")
T = Sheets("´M§ä").[A2]
xD(T & "") = ""
Arr = Range([¤u§@ªí1!T2], [¤u§@ªí1!A65536].End(3))
For i = 2 To UBound(Arr)
    If xD.Exists(Arr(i, 1) & "") Then
        For j = 2 To 19
            If Arr(i, j) <> "" Then: M = M + 1: Arr(1, M) = Arr(1, j)
        Next
    End If
Next
If M > 0 Then Sheets("´M§ä").[B2].Resize(1, M) = Arr
End Sub

°a¤ªºµ

¦^´_ 1# abc9gad2016
³o¬O°Ñ¦Ò  jcchiang ¤j¤jªº¼gªk ¦³ªÅ¬Ý¬Ý¬O¤£¬O³o¼Ë ·PÁÂ

1. Public Sub ´M§ä¬Û¹ïÄæ¦ì½m²ß()
   
2. 
   
3.     Arr = [¤u§@ªí1!A1].CurrentRegion
   
4.     Set xD = CreateObject("Scripting.Dictionary")
   
5.    
   
6.     For Y = 1 To UBound(Arr, 2)
   
7.         xD(Arr(2, Y)) = Y
   
8.     Next Y
   
9.    
   
10.     For X = 3 To UBound(Arr, 1)
    
11.         For Y = 2 To UBound(Arr, 2)
    
12.             If Arr(X, 1) = [´M§ä!A2] And Arr(X, Y) <> "" Then
    
13.                 E = E + 1
    
14.                 Sheets(2).Cells(2, 1 + E) = Arr(2, xD(Arr(2, Y)))
    
15.             End If
    
16.         Next Y
    
17.     Next X
    
18. 
    
19. End Sub

½Æ»s¥N½X