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

¦p¦ó­×§ïvba

¦p¦ó­×§ïvba

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

¦^´_ 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

TOP

¦^´_ 2# GBKEE

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

TOP

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

TOP

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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD