ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

±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)

¦^´_ 1# Qektyyrwp

  1. Sub nn()
  2. Dim lRow&
  3. Dim vD, vTemp

  4. Set vD = CreateObject("Scripting.Dictionary")

  5. lRow = 2
  6. While Cells(lRow, 1) <> ""
  7.    If Left(Cells(lRow, 3), 4) <> "nona" Then ' ¥i¥Î¤~¥[¤J
  8.      If vD.exists(CStr(Cells(lRow, 1))) Then
  9.        If vD(CStr(Cells(lRow, 1))) = "" Then
  10.          vD(CStr(Cells(lRow, 1))) = Cells(lRow, 2)
  11.        Else
  12.          vD(CStr(Cells(lRow, 1))) = vD(CStr(Cells(lRow, 1))) & "," & Cells(lRow, 2)
  13.        End If
  14.      Else
  15.        vD(CStr(Cells(lRow, 1))) = Cells(lRow, 2)
  16.      End If
  17.    Else
  18.      vD(CStr(Cells(lRow, 1))) = ""
  19.    End If
  20.    lRow = lRow + 1
  21. Wend

  22. [A16:B50].Clear
  23. lRow = 16
  24. For Each vTemp In vD
  25.    Cells(lRow, 1) = vTemp
  26.    If vD(vTemp) <> "" Then
  27.      Cells(lRow, 2) = vD(vTemp)
  28.    Else
  29.      Cells(lRow, 2) = "µL"
  30.    End If
  31.    lRow = lRow + 1
  32. Next
  33. End Sub
½Æ»s¥N½X
¼gµ{¦¡±a¥X¥i¥Î¾÷¥x-a.zip (13.92 KB)

TOP

­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)
¥t¤@¸ü§}¡Ghttp://www.funp.net/731903

TOP

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


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

TOP

¦^´_ 2# luhpro


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

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD