½Ð°Ý¤£ª¾¥i§_¼gµ{¦¡±a¥X¥i¥Î¾÷¥x

Qektyyrwp

±NID¿é¤J«á¡AB16,B17,B18¥i¥H¦Û°Ê±a¥X¨Ó¡A¦pªGµLªk¼g¦b¦P¤@®æÀx¦s®æ¡A¤À¶}¤]¥i¥H¡C³Â·Ð¤j¤j­ÌÀ°¬Ý¬Ý¡C ID.zip (5.72 KB)

¤U¸ü¦¸¼Æ: 7

2016-4-15 00:54

titan0919tw

¦^´_ 2# luhpro


    ¦n·Q­nªü~~¦ý«ç»ò¤U¸ü¤£¤F\

Qektyyrwp

¦^´_ 3# ­ã´£³¡ªL


    ÁÂÁ¼ӤW¤G¦ì¡A¥i¥H¥Î¤F¡A·PÁÂ

­ã´£³¡ªL

­Y¬O¾÷¥x¤£¦h¡A¥i¦Ò¼{¦Û­q¨ç¼Æ¡A¼u©Ê¸û¨Î¡G
Function GET_V(xArea As Range, xA$) As String
Dim Arr, T$, i&
Arr = xArea.Value
For i = 1 To UBound(Arr)
¡@¡@If Arr(i, 1) = xA And Left(Arr(i, 3), 3) <> "non" Then T = T & "," & Arr(i, 2)
Next i
If T = "" Then GET_V = "µL" Else GET_V = Mid(T, 2)
End Function
¡@
¤½¦¡¥Îªk¡G
=get_v(A$2:C$12, A16)
=get_v(¸ê®Æ½d³ò, ¬d¸ßID)

¼gµ{¦¡±a¥X¥i¥Î¾÷¥x-v01.rar (12.52 KB)

¤U¸ü¦¸¼Æ: 2

2016-4-16 12:15

¥t¤@¸ü§}¡Ghttp://www.funp.net/731903

luhpro

¦^´_ 1# Qektyyrwp

¤U¸ü (36.2 KB)

2016-4-16 04:52

1. Sub nn()
   
2. Dim lRow&
   
3. Dim vD, vTemp
   
4. 
   
5. Set vD = CreateObject("Scripting.Dictionary")
   
6. 
   
7. lRow = 2
   
8. While Cells(lRow, 1) <> ""
   
9.    If Left(Cells(lRow, 3), 4) <> "nona" Then ' ¥i¥Î¤~¥[¤J
   
10.      If vD.exists(CStr(Cells(lRow, 1))) Then
    
11.        If vD(CStr(Cells(lRow, 1))) = "" Then
    
12.          vD(CStr(Cells(lRow, 1))) = Cells(lRow, 2)
    
13.        Else
    
14.          vD(CStr(Cells(lRow, 1))) = vD(CStr(Cells(lRow, 1))) & "," & Cells(lRow, 2)
    
15.        End If
    
16.      Else
    
17.        vD(CStr(Cells(lRow, 1))) = Cells(lRow, 2)
    
18.      End If
    
19.    Else
    
20.      vD(CStr(Cells(lRow, 1))) = ""
    
21.    End If
    
22.    lRow = lRow + 1
    
23. Wend
    
24. 
    
25. [A16:B50].Clear
    
26. lRow = 16
    
27. For Each vTemp In vD
    
28.    Cells(lRow, 1) = vTemp
    
29.    If vD(vTemp) <> "" Then
    
30.      Cells(lRow, 2) = vD(vTemp)
    
31.    Else
    
32.      Cells(lRow, 2) = "µL"
    
33.    End If
    
34.    lRow = lRow + 1
    
35. Next
    
36. End Sub

½Æ»s¥N½X

¼gµ{¦¡±a¥X¥i¥Î¾÷¥x-a.zip (13.92 KB)

¤U¸ü¦¸¼Æ: 2

2016-4-16 04:53