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

[µo°Ý] ¦X«÷¸ê®Æ°ÝÃD

[µo°Ý] ¦X«÷¸ê®Æ°ÝÃD

¤p©f¤S¨Ó¸ò¦U¦ì°ª¤â½Ð¯q¤@¤U §Ú¥u·|¥ÎCONCATENATE ¦ý¦n¹³¦³­­¨î


¦p¦ó±N sheet2 AÄæ¦ì¸ê®Æ¦X«÷¦ÜSheet1 ¢Ï2Äæ¦ì¨Ã¥[¦³ "¡F"  ex: [email protected];[email protected]
ÁÂÁÂ ^^

¦^´_ 1# yuras

¦X¨Ö.rar (1.77 KB)

TOP

¦^´_ 1# yuras
¼g­Ó¦Û©w¸q¨ç¼Æ¹B¥Î
¤@¯ë¼Ò²Õ
  1. Function JoinStr(str_array As Range, dot As String)
  2. '³s±µ¦r¦ê»yªk:JoinStr(³æÄæ©Î³æ¦CÀx¦s®æ½d³ò,³s±µ²Å¸¹)
  3. If str_array.Columns.Count = 1 Then
  4.    JoinStr = Join(Application.Transpose(str_array), dot)
  5.    Else
  6.    JoinStr = Join(Application.Transpose(Application.Transpose(str_array)), dot)
  7. End If
  8. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh

ÁÂÁÂ ^^

TOP

¦^´_ 3# Hsieh

¤£¦n·N«ä ¦AÅ@°Ý±z¤@¤U  ¦pªG§Ú§â 2!A2:A100,";") ¿ï¨ú½d³òÄæ¦ì©Ô¤j¡A·|Åܦ¨ªÅ®æ³¡¥÷·|¦Û°Ê¸É ;;;;;;;;;;;;;;;;;;;;;;;
EX: [email protected];[email protected];[email protected];[email protected];[email protected];
[email protected];[email protected];[email protected];::::::::::::::::::::::::::::
¨º¦p¦óªÅ®æ³¡¥÷¤£­n¥Ø°Ê¸É¡§¡F¡§   ÁÂÁ !! :P

TOP

¦^´_ 5# yuras
  1. Function JoinStr(str_array As Range, dot As String)
  2. '³s±µ¦r¦ê»yªk:JoinStr(³æÄæ©Î³æ¦CÀx¦s®æ½d³ò,³s±µ²Å¸¹)
  3. If str_array.Columns.Count = 1 Then
  4.    JoinStr = Join(Application.Transpose(str_array), dot)
  5.    Else
  6.    JoinStr = Join(Application.Transpose(Application.Transpose(str_array)), dot)
  7. End If
  8. JoinStr = Replace(JoinStr, dot & dot, dot)
  9. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# yuras
³sµ²¤£³sÄò½d³òªº¦r¦ê
  1. Function ¦r¦ê³s±µ(³s±µ²Å¸¹ As String, ParamArray ¦r¦ê½d³ò()) As String
  2.     Dim i As Integer, e As Variant
  3.     For i = 0 To UBound(¦r¦ê½d³ò)
  4.         For Each e In ¦r¦ê½d³ò(i)
  5.         If e <> "" Then ¦r¦ê³s±µ = IIf(¦r¦ê³s±µ = "", e, ¦r¦ê³s±µ & ³s±µ²Å¸¹ & e)
  6.         Next
  7.     Next
  8. End Function
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD