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

yuras

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

¤U¸ü (111.75 KB)

2011-12-28 21:48

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

register313

¦^´_ 1# yuras

¤U¸ü (94.24 KB)

2011-12-28 22:17

¦X¨Ö.rar (1.77 KB)

¤U¸ü¦¸¼Æ: 8

2011-12-28 22:17

Hsieh

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

¤U¸ü (20.81 KB)

2011-12-28 23:20

yuras

¦^´_ 3# Hsieh

ÁÂÁÂ ^^

yuras

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

Hsieh

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

GBKEE

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