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)

並向下復制。

編輯＃1：

由於存在空格字符，因此很難看到拆分的細節。 這是地圖：