- ©«¤l
- 6
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 16
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2010-11-28
- ³Ì«áµn¿ý
- 2011-1-1
|
¦^´_ 10# Hsieh
½Ð°ÝJoinªºµ{¦¡¦³¿ìªk¥ÎAnd¨Ó¼g¶Ü?
§ÚÅ¥¤H»¡³oÓ¤ñ¸û²³æ¡AJoin¬O¤ñ¸û°ª¶¥ªº¥Îªk
§Ú¤£©ú¥Õ¥ÎAnd¼gªº¸Ü¡A¬Onþ¨Ç±ø¥ó³sµ²þ¨Ç±ø¥ó??
¡¯ReDim Preserve Ar(s)
¡¯Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
Next
¡¯mystr = Join(Ar, Chr(10))
¡¯.Value = mystr
¡¯.WrapText = True
End With
Erase Ar
ÁÙ¦³¥i¥H¸ÑÄÀ¤W±¦³¡¯ªºµ{¦¡·N«ä¶Ü?
§ÚÁöµM¤j·§ª¾¹D·N«ä¡A¦ý¦³¤H°Ý§Ú®É¡A§Ú¯uªºµLªk¹F¥X¨Ó¡C
³Â·Ð±z¤F ÁÂÁÂ! |
|