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

[µo°Ý]¦p¦ó±N½d³ò¤º²Å¦X±ø¥óªº¦r¦ê¦X¨Ö

Function WLOOKUP(X, xA As Range, xB As Range, SP$) As String
Dim i&, T$
For i = 1 To xA.Rows.Count
¡@¡@If xA(i) = X Then T = Trim(T & " " & xB(i))
Next i
WLOOKUP = Replace(T, " ", SP)
End Function

¤½¦¡¡G
=wlookup("A",C$2:C$11,A$2:A$11," ")
=wlookup(¤ñ¹ï­È,¤ñ¹ï½d³ò,¨ú­È½d³ò,¤À¹j²Å¸¹)
¡@
Xl0000027.rar (11.15 KB)
¡@
¡@

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD