Hsieh

¦^´_ 3# chen031695

¤º«Ø¤å¦r¨ç¼ÆµLªkµ²¦X°}¦C
¥ý«Ø¥ß2­Ó¦WºÙ
x¤½¦¡
=OFFSET(¤u§@ªí1!$A$1,,,COUNTA(¤u§@ªí1!$A:$A),)
y¤½¦¡
=SMALL(IF(x=FALSE,ROW(x),""),ROW(INDIRECT("A1:A"&COUNTIF(x,FALSE))))
¨Ï¥Î¦Û©w¸q¨ç¼Æ
¤@¯ë¼Ò²Õ

1. Function JoinIIF(Rng As Variant, dot As String) 'µ²¦X°}¦C¤¸¯À
   
2. Dim Ar(), a As Variant
   
3. For Each a In Rng
   
4.     ReDim Preserve Ar(s): Ar(s) = a: s = s + 1
   
5. Next
   
6. JoinIIF = Join(Ar, dot)
   
7. End Function

½Æ»s¥N½X

¤U¸ü (83.96 KB)

2012-4-19 00:01

Àx¦s®æ¤½¦¡=JoinIIF(y,",")

¤U¸ü (8.36 KB)

2012-4-19 00:02