weixin_55020834 2021-07-04 17:51 采纳率: 44.4%
浏览 455
已采纳

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

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

  • 写回答

2条回答 默认 最新

  • soar3033 2021-07-04 18:44
    关注

    可以用vba实现

    img

    img

    
    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
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?