excel如何让文字满一定字数就自动换到下个单元格？

Question

excel如何让文字满一定字数就自动换到下个单元格？比如我现在输入的文字，粘贴到excel里，就是在一个单元格内，除非粘贴之前分了段。但是我复制很长的一段文字到excel的话，那么如果是自动换行，那么那个单元格会拉得很长，所以我想问下，有没有办法，我复制很长的一段话，可以每多少字，比如15个字，就分段到下一个单元格？excel如何让文字满一定字数就自动换到下个单元格？比如我现在输入的文字，粘贴到excel里，就是在一个单元格内，除非粘贴之前分了段。但是我复制很长的一段文字到excel的话，那么如果是自动换行，那么那个单元格会拉得很长，所以我想问下，有没有办法，我复制很长的一段话，可以每多少字，比如15个字，就分段到下一个单元格？excel如何让文字满一定字数就自动换到下个单元格？比如我现在输入的文字，粘贴到excel里，就是在一个单元格内，除非粘贴之前分了段。但是我复制很长的一段文字到excel的话，那么如果是自动换行，那么那个单元格会拉得很长，所以我想问下，有没有办法，我复制很长的一段话，可以每多少字，比如15个字，就分段到下一个单元格？

Answer 1

可以用vba实现

Sub aa()
    n=1'第几列
    r = Range("A65536").End(xlUp).Row
    i = 1
    Do While i <= r
        l = Len(Cells(i, n).Value)
        If l > 5 Then
            Cells(i + 1, n).Value = Right(Cells(i, n).Value, l - 5)
            Cells(i, n).Value = Left(Cells(i, n).Value, 5)
            r = r + 1
        End If
        i = i + 1
    Loop
End Sub