vba怎么将同一单元格中的xx|xx|xx分成三个单元格

vba怎么将同一单元格中的xx|xx|xx分成三个单元格
需要将word文档里面的同一单元格拆分开 只要将|间隔拆成单元格

参考GPT和自己的思路：

您好，针对您的问题，可以使用以下VBA代码实现同一单元格中的xx|xx|xx分成三个单元格：

Sub SplitCells()
    Dim c As Range
    For Each c In Selection.Cells
        Dim parts() As String
        parts = Split(c.Value, "|")
        If UBound(parts) >= 2 Then
            c.Value = parts(0)
            c.Offset(0, 1).Value = parts(1)
            c.Offset(0, 2).Value = parts(2)
        End If
    Next c
End Sub

将代码复制到VBA编辑器中，然后在Word文档中选中需要拆分的单元格，运行代码即可将每个部分分割到单独的单元格中。如果需要分割更多部分，可以根据需要修改代码中的UBound参数。希望可以帮助到您！