[Visual Basic] 纯文本查看 复制代码Sub 分割文本()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long, j As Long
Dim arr() As String
Set ws = ActiveSheet
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
arr = Split(ws.Cells(i, 1), "。")
For j = 1 To UBound(arr)
If Trim(arr(j)) "" Then
ws.Cells(i, ws.Cells(i, ws.Columns.Count).End(xlToLeft).Column + 1) = Trim(arr(j)) & "。"
End If
Next j
Next i
End Sub