自动插入下一行，复制分解指定单元格数据和字符，直至分解完成

jiang658

希望：自动检测F列Fx单元格字符数，当超出32个字符时，自动插入下一行并复制Fx所在行Ax:Dx内容、分解Ex和Fx，F列的单元格数据不重复直到分解完毕

jiang658

Sub Macro1()
Dim arr, brr, i&, j&, k&, l&, s&, n&, p$
arr = [b2:h5]
ReDim brr(1 To 10000, 1 To UBound(arr, 2))
For j = 2 To UBound(arr)
    w = Split(arr(j, 6), ",")
    s = 0: p = ""
    For i = 0 To UBound(w)
        If Len(p & w(i) & ",") < 32 Then
            s = s + 1
            p = p & w(i) & ","
        Else
            GoSub 100
            s = 1: p = w(i) & ","
        End If
        If i = UBound(w) Then
            p = Left(p, Len(p) - 1)
            GoSub 100
        End If
    Next
    GoTo 200
100:
    n = n + 1
    For l = 1 To UBound(arr, 2)
        brr(n, l) = arr(j, l)
    Next
    brr(n, 5) = s
    brr(n, 6) = p
    Return
200:
Next
Range("b27").Resize(n, UBound(brr, 2)) = brr
End Sub

chengcheng90

什么东东？