chin15

¼W¥[¤@­Ó°Ñ¼Æ

1. Function JoinStr(rng As Range, w)
   
2.     Dim D As Object, E As Variant, AR(), i As Integer
   
3.     Set D = CreateObject("SCRIPTING.DICTIONARY")
   
4.     For Each E In rng
   
5.         If E <> "" Then D(E.Value) = ""
   
6.     Next
   
7.     ReDim AR(1 To D.Count)
   
8.     For i = 1 To D.Count
   
9.         AR(i) = Application.Small(D.KEYS, i)
   
10.     Next
    
11.     JoinStr = Join(AR, w)
    
12. End Function

½Æ»s¥N½X

¤½¦¡¿é¤J¡G=JoinStr($B$2:$M$3," ")
¨â­ÓÂù¤Þ¸¹¶¡¥i¥H¬O¥ô¦ó²Å¸¹