셀당 동일하지 않은 문자 수를 제한된 범위의 다른 열 단일 셀로 이동

첫 번째 열 셀의 문자를 다른 열로 이동하지만 두 번째 열의 문자는 셀당 25자를 넘지 않아야합니다. 예를 들어, 첫 번째 5 개의 행 중 각각의 첫 번째 열에는 5 개의 문자가 있으며 이는 두 번째 열의 단일 셀로 이동하여 총 25 자이며, 행 6,7,8은 7 자, 행 9는 8 자입니다. 따라서 6,7,8 행 (총 21 자) 만 두 번째 열로 마이그레이션됩니다. 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로갑니다
.