Hsieh

¦^´_ 1# dechiuan999 [code]Option Explicit

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 = 2 To Len(Mystr) - Len(Replace(Mystr, " ", ""))  '²Ä¤G­Ó¥H«áªºªÅ¥ÕÁä¶}©l¨ú¥N
            Mystr = Application.Substitute(Mystr, " ", Chr(10), i)
        Next
            mRng1.Offset(, 8).Value = Mystr
            mRng1.Offset(, 8).WrapText = True     '§Q¥ÎWrapTextÄÝ©Ê

Hsieh

¦^´_ 4# icestormer


    Substitute¨ç¼Æ¡A«ü©w³Ì«á¤@­Ó¤Þ¼Æ¤~¯à°w¹ï¸Ó¦r¤¸§@¨ú¥N
©¿²¤¸Ó¤Þ¼Æ«h¬O¥þ³¡¨ú¥N
©Ò¥H§A©¿²¤¨º­Ó i ´N¤£¥²¨Ï¥Î°j°é¡A¥i¥H¤@¦¸¥þ³¡¨ú¥N