¦p¦ó­×§ïvba

duck_simon

¦pªþ¥[ÀÉ®×»¡©ú ,½Ð±Ð¦Ñ®v¥ý¶i¦p¦ó­×§ïvba? ÁÂÁÂ!
Book1.rar (8.09 KB)

¤U¸ü¦¸¼Æ: 15

2011-9-25 11:14

duck_simon

¦^´_ 5# GBKEE
¦^ GBKEE ¦Ñ®v:
¦]¬°¦³¨Ç®É­Ô§ó§ï¬Y¼Æ­È,³£­nµ¥"¦Û°Ê­pºâ"ºâ§¹, ¦³ÂI®ö¶O®É¶¡=Ãi±oµ¥..«¢«¢
©Ò¥H³]"¤â°Ê",¦ý§Ú³£·|«ö"F9"  ÁÂÁ¤j¤j

duck_simon

¦^´_ 4# chin15
¥i¥H¤F! ·PÁÂchin15 & GBKEE ¨â¦ì¤j¤j¦Ñ®v!  ÁÂÁ !

GBKEE

¦^´_ 3# duck_simon
¸Õ¸Õ¬Ý
«ü¥O ¤u¨ã->¿ï¶µ->­pºâ: ¤Ä¿ï [¦Û°Ê]

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¥ô¦ó²Å¸¹

duck_simon

¦^´_ 2# GBKEE

½Ð±Ð GBKEE  ¦Ñ®v:  
°õ¦æ«á ¥X²{#VALUE  
¬O§_   CreateObject("SCRIPTING.DICTIONARY") ³o¬q§Ú­n³]©w¤Þ¥Î¶µ¥Ø??
VBA §Ú¬O§¹¥þªù¥~º~!  ÁÂÁ !

GBKEE

¦^´_ 1# duck_simon

1. Function JoinStr(rng As Range)
   
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, "")
    
12. End Function

½Æ»s¥N½X