分成細胞

Question

我想修改/格式的文本是在像細胞內的新行：

如果文本包含「;」或子彈，創造一個新的行。

簡而言之，我將該單元格複製到noteped（.txt）中，並將多個項目符號複製到一行或「;」中。我想創造一個新的行。現在，我手動修改它。

謝謝！

編輯：

Sub foo1() 

Dim txt As String 
Dim i As Integer 
Dim FullName As Variant 
Dim oldText As String 
txt = Cells(2, 5) 
FullName = Split(txt, ";") 

For i = 0 To UBound(FullName) 
    oldText = Cells(2, 1).Value 
    Cells(2, 1).Value = oldText & vbCrLf & "•" & FullName(i) 

Next 
End Sub 

我成功。只有兩個問題：1.如何設置兩個分隔符？ 2.爲什麼當我將單元格的值複製到記事本中時，它會用「」來包裝它？

Answer 1

如果妳希望它在多個單元格：

Sub fool() 

    Dim txt as String, txt2 as variant 

    txt = Replace(Cells(2, 5), ".", ";") 
    txt2 = Split(txt, ";") 

    Range(Cells(2, 1), Cells(Ubound(txt2) + 2, 1) = _ 
    Application.WorksheetFunction.Transpose(txt2) 

End Sub 

如果妳想要在一個囚室：

Sub fool() 

    Dim txt as String 

    txt = Replace(Cells(2, 5), ".", vbCrLf) 
    txt = Replace(txt, ";", vbCrLf) 

    Cells(2, 1) = txt 

End Sub 

嗯......如果u想保持細胞的舊文本（2 ，1），然後更改最後一行：

 Cells(2, 1) = Cells(2, 1) & vbCrLf & txt 

編輯：或乾淨的方式：

Sub fool() 

    Dim txt As String, i As Byte 

    txt = Cells(2, 1) & vbCrLf & Cells(2, 5) 

    'change all delimeters 
    For i = 0 To 2 
    txt = Replace(txt, Array(".", ";", "•")(i), vbCrLf) 
    Next 

    'eliminate doubles 
    Do While InStr(txt, vbCrLf) > 0 
    txt = Replace(txt, vbCrLf & vbCrLf, vbCrLf) 
    Loop 

    Cells(2, 1) = txt 

End Sub