Function MyCon(rng As Range) As String<br/>Dim str As String<br/> For Each c In rng<br/> str = str & Chr(10) & c.Value<br/> Next<br/> MyCon = Right(str, Len(str) - 1)<br/>End Function
[此贴子已经被作者于2008-5-21 19:28:46编辑过] |