½Ð°Ý¤£ª¾¥i§_¼gµ{¦¡±a¥X¥i¥Î¾÷¥x
- ©«¤l
- 21
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Excel 2.0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-17
- ³Ì«áµn¿ý
- 2024-1-13
|
½Ð°Ý¤£ª¾¥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)
|
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¦^´_ 1# Qektyyrwp
- Sub nn()
- Dim lRow&
- Dim vD, vTemp
-
- Set vD = CreateObject("Scripting.Dictionary")
- lRow = 2
- While Cells(lRow, 1) <> ""
- If Left(Cells(lRow, 3), 4) <> "nona" Then ' ¥i¥Î¤~¥[¤J
- If vD.exists(CStr(Cells(lRow, 1))) Then
- If vD(CStr(Cells(lRow, 1))) = "" Then
- vD(CStr(Cells(lRow, 1))) = Cells(lRow, 2)
- Else
- vD(CStr(Cells(lRow, 1))) = vD(CStr(Cells(lRow, 1))) & "," & Cells(lRow, 2)
- End If
- Else
- vD(CStr(Cells(lRow, 1))) = Cells(lRow, 2)
- End If
- Else
- vD(CStr(Cells(lRow, 1))) = ""
- End If
- lRow = lRow + 1
- Wend
-
- [A16:B50].Clear
- lRow = 16
- For Each vTemp In vD
- Cells(lRow, 1) = vTemp
- If vD(vTemp) <> "" Then
- Cells(lRow, 2) = vD(vTemp)
- Else
- Cells(lRow, 2) = "µL"
- End If
- lRow = lRow + 1
- Next
- End Sub
½Æ»s¥N½X
¼gµ{¦¡±a¥X¥i¥Î¾÷¥x-a.zip (13.92 KB)
|
|
|
|
|
|
|
- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-22
|
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 |
|
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Excel 2.0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-17
- ³Ì«áµn¿ý
- 2024-1-13
|
¦^´_ 3# ã´£³¡ªL
ÁÂÁ¼ӤW¤G¦ì¡A¥i¥H¥Î¤F¡A·PÁ |
|
|
|
|
|
|
- ©«¤l
- 1
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 6
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- excel2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-21
- ³Ì«áµn¿ý
- 2016-6-8
|
¦^´_ 2# luhpro
¦n·Qnªü~~¦ý«ç»ò¤U¸ü¤£¤F\ |
|
titan
|
|
|
|
|