セルごとに異なる数の文字を、範囲が制限されている別の列の単一セルに移動する

最初の列のセルの文字を別の列に移動する方法。ただし、2番目の列はセルごとに25文字以下にする必要があります。たとえば、最初の5行の各セルには5文字があり、合計25文字の2列目の単一セルに移行します。行6、7、8は7文字、行9は8文字です。したがって、行6、7、8（合計21文字）のみが2番目の列に移行します。行9は、次の行と一緒になり、25文字または少し少ない文字数になります。ありがとう

ではB1に入力します。

=MID(TEXTJOIN("",TRUE,A:A),(ROWS($1:1)-1)*25+1,25)

下にコピーします：

この式は、列Aのすべてのデータを連結します。次に、25文字の「チャンク」を取り、列Bに配置します。

編集＃1：

これはマクロベースのソリューションです。マクロは列Aをたどって、連結によって文字列を作成します。文字列が25文字を超えると、列Bのセルに保存され、新しい文字列が開始されます。マクロ：

Sub Kompactor()
    Dim txt As String, K As Long, i As Long
    txt = ""
    K = 1

    For i = 1 To 25
    If Len(txt & Cells(i, 1)) > 25 Then
        Cells(K, 2) = txt
        txt = Cells(i, 1)
        K = K + 1
    Else
        txt = txt & Cells(i, 1)
    End If
    Next i

    Cells(K, 2) = txt
End Sub

いくつかのサンプルデータ：

ご覧のように、A1、A2、A3、A4はB1に入り、
A5、A6、A7はB2に入ります
。