- ©«¤l
- 127
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 160
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-1
- ³Ì«áµn¿ý
- 2017-5-20
|
¥»©«³Ì«á¥Ñ icestormer ©ó 2012-5-11 08:43 ½s¿è
¦^´_ 3# dechiuan999
§Ú§â¶Wª©ªºµ{¦¡¤p¤p§ï¤F¤GÓ¤p¦a¤è«á ©~µM·|¥X²{ ¥un¹J¨ìªÅ®æ´N·|Â_¦æ¤F
,³o¬O¤@Ãä¾Ç²ß¶Wª©´£¨Ñªºµ¹§Aªºµ{¦¡½X¤¤(substituteÁÙ¬Oè¤~¥h¬d¤~ª¾¹D¨º¬O¤°»ò§@¥Î.)¤£¤p¤ß¸Õ¥X¨Óªº
쥻¶Wª©ªº·|¦b²Ä¤GӪŮæ«á¤~·|Â_¦æ §ï¦¨¤U¤è«á·|±q²Ä¤@ӪŮæ´N¶}©lÂ_¤F,¤£ª¾³o¬O¤£¬O§Anªº
Sub aa()
Dim mSht1 As Worksheet
Dim mRng As Range, mRng1 As Range, i%, Mystr$
Set mSht1 = Worksheets(1)
With mSht1
Set mRng = .Range("a1:a7")
.Columns("i").ColumnWidth = 10
For Each mRng1 In mRng
Mystr = mRng1.Value
For i = 0 To Len(Mystr) - Len(Replace(Mystr, " ", "")) '³o¸Ì°j°é¤]¥Ñ2§ï¬°0¶}©l
' For i = 2 To Len(Mystr) - Len(Replace(Mystr, " ", "")) '²Ä¤GÓ¥H«áªºªÅ¥ÕÁä¶}©l¨ú¥N
Mystr = Application.Substitute(Mystr, " ", Chr(10)) '¸ò¶Wª©ªº¥u¦³®t¦b³o¸Ì¤Ö¤@ "i"
' Mystr = Application.Substitute(Mystr, " ", Chr(10), i)
Next
mRng1.Offset(, 8).Value = Mystr
mRng1.Offset(, 8).WrapText = True '§Q¥ÎWrapTextÄÝ©Ê<<<< ¤£¹L³o¸Ì¦³¤@Ó°ÝÃD §Ú¸Õ¹L¤£ºÞ¦³¨S¦³³o¦æ ,«ç¬Ý°_¨Ó®ÄªG¤@¼Ë©O?
Next '
End With
End Sub |
|