Excel宏可将单元格中的文本拆分为多行固定数量的字符

Question

我有一个单元格

abcd efg hi jklm    efghijk          abcdedfg ijkl

我需要将文本每20个字符分成一个新行，所以我最终得到

Row2 - abcd efg hi jklm
Row3 - efghijk
Row4 - abcdedfg ijkl

图片：

我已经添加了对数据处理方法的更好描述，所提供的代码非常有效，并且每20个字符将数据分割为新的一行，如果有人可以请帮助我，我需要进一步分割数据我会很感激的。

Answer 1

尝试一下：

Sub SplitStringFixed()
    Dim s As String, i As Long
    s = [A1]
    For i = 1 To (Len(s) / 20) + 1
        Cells(i + 1, 1).Value = Mid(s, 1 + (i - 1) * 20, 20)
    Next i
End Sub

如果没有VBA，您可以输入：

=MID($A$1,20*(ROWS($1:1)-1)+1,20)

并向下复制。

EDIT＃1：

由于存在空格字符，因此很难看到拆分的细节。这是地图：