- ©«¤l
- 227
- ¥DÃD
- 3
- ºëµØ
- 1
- ¿n¤À
- 273
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-3-22
- ³Ì«áµn¿ý
- 2013-1-29
|
¼W¥[¤@ӰѼÆ- Function JoinStr(rng As Range, w)
- Dim D As Object, E As Variant, AR(), i As Integer
- Set D = CreateObject("SCRIPTING.DICTIONARY")
- For Each E In rng
- If E <> "" Then D(E.Value) = ""
- Next
- ReDim AR(1 To D.Count)
- For i = 1 To D.Count
- AR(i) = Application.Small(D.KEYS, i)
- Next
- JoinStr = Join(AR, w)
- End Function
½Æ»s¥N½X ¤½¦¡¿é¤J¡G=JoinStr($B$2:$M$3," ")
¨âÓÂù¤Þ¸¹¶¡¥i¥H¬O¥ô¦ó²Å¸¹ |
|