abc9gad2016

¦^´_  abc9gad2016

¤£¦n·N«ä¡A¤Öºâ1Äæ¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
  Sub tt2()
Set xD = CreateObject("Sc ...
samwang µoªí©ó 2021-1-25 17:41

    ·PÁ¤j¤j¡A¬Q±ß¥Î±zªºµ{¦¡½X«áµy°µ­×§ï¦³¦¨¥\§Ë¦¨§Ú­nªº¼Ë¤l  ÁÂÁÂ
Sub ·j´M()
'
' ·j´M ¥¨¶°
' ·j´M
''
Worksheets("´M§ä").Range("B2:V2").ClearContents
Set xD = CreateObject("Scripting.Dictionary")
Sheets("´M§ä").[F6:X6] = ""
T = Sheets("´M§ä").[A2]
xD(T & "") = ""
Arr = Range([¤u§@ªí1!X6], [¤u§@ªí1!A65536].End(3))
For i = 2 To UBound(Arr)
    N = xD(Arr(i, 1) & ""): If N = 0 Then GoTo 99
    For J = 6 To 24
        If Arr(i, J) <> "" Then: M = M + 1: Arr(1, M) = Arr(1, J)
    Next
99: Next
If M > 0 Then Sheets("´M§ä").[B2].Resize(1, M) = Arr
End Sub

abc9gad2016

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

ÁÙ¬O¬Û·í·PÁ¤j¤j¤À¨É~

°a¤ªºµ

¦^´_ 11# abc9gad2016

Public Sub ´M§ä¬Û¹ïÄæ¦ì½m²ß()
    Application.ScreenUpdating = False
    Range(Sheets(2).Cells(2, 2).End(xlToRight), Sheets(2).Cells(2, 2)).ClearContents
    Arr = Range(Sheets(1).Cells(Rows.Count, 1).End(xlUp), Sheets(1).Cells(6, 1).End(xlToRight))
    Set xD = CreateObject("Scripting.Dictionary")
   
    For Y = 1 To UBound(Arr, 2)
        xD(Arr(1, Y)) = Y
    Next Y
   
    For X = 3 To UBound(Arr, 1)
        For Y = 6 To UBound(Arr, 2)
            If Arr(X, 1) = [´M§ä!A2] And Arr(X, Y) <> "" Then
                E = E + 1
                Sheets(2).Cells(2, 1 + E) = Arr(1, xD(Arr(1, Y)))
            End If
        Next Y
    Next X
    Application.ScreenUpdating = True
End Sub

«Øij ­×§ï samwang ¤j¤jªº¦ì¸m ¤ñ¸û¦n ¥Lªº¼gªk ¤ñ§Úªº¦n«Ü¦h

samwang

¦^´_ 10# abc9gad2016

¤£¦n·N«ä¡A¤Öºâ1Äæ¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
  Sub tt2()
Set xD = CreateObject("Scripting.Dictionary")
Sheets("´M§ä").[B2:T2] = ""
T = Sheets("´M§ä").[A2]
xD(T & "") = ""
Arr = Range([¤u§@ªí1!T2], [¤u§@ªí1!A65536].End(3))
For i = 2 To UBound(Arr)
     N = xD(Arr(i, 1) & ""): If N = 0 Then GoTo 99
     For j = 2 To 20
         If Arr(i, j) <> "" Then: M = M + 1: Arr(1, M) = Arr(1, j)
     Next
99:  Next
If M > 0 Then Sheets("´M§ä").[B2].Resize(1, M) = Arr
End Sub

abc9gad2016

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


   Á¤j¤j~´ú¸Õ¦¨¥\
¥t¥~·Q½Ð±Ð­Yªí®æ¤¤¦h¤F¤@¨ÇµLÃöªº¸ê°T¡A­n§ï¥ÑF7:X24³o­Ó½d³ò´M§äF6¶}©lªº¹ïÀ³­Èªº¸Ü

¤U¸ü (72.56 KB)
3

2021-1-25 16:34

À³¸Ó­n¦p¦ó­×§ïµ{¦¡©O ÁÂÁÂ

abc9gad2016

¦^´_  abc9gad2016

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

Sub tt2()
Set xD = CreateObject("Scripting.Dictionary" ...
samwang µoªí©ó 2021-1-23 10:31

S¤j¤£¦n·N«ä¡A´ú¸Õ«áµo²{·|¤Ö¦C¨ì¤@¶µ¡A¦p¹Ï

¤U¸ü (60.13 KB)
pic

2021-1-25 16:19

¦]¹ïµ{¦¡¸û¤£¼ô¤£²M·¡­n¦p¦ó­×§ï ÁÂÁÂ

abc9gad2016

¦^´_ 7# hcm19522


    ·PÁ¤j¤j´£¨Ñ¨ç¼Æªº¸Ñªk ·PÁÂ!

°a¤ªºµ

¦^´_ 5# samwang

ÁÂÁÂsamwang«e½úªº¦^ÂÐ ¾Ç²ß¤F  ·PÁÂ

hcm19522

https://blog.xuite.net/hcm19522/twblog/589575552

samwang

¦^´_ 1# abc9gad2016

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

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