求助将单元格中内容拆分成行

zhangcheng6688

学一下
Sub test()
arr = [a2].CurrentRegion
ReDim brr(1 To 10000, 1 To UBound(arr, 2))
For i = 3 To UBound(arr)
    If arr(i, 3) <> "" Then
        zbry = Split(arr(i, 3), "  ")
        For j = 0 To UBound(zbry)
            n = n + 1
            brr(n, 1) = arr(i, 1)
            brr(n, 2) = arr(i, 2)
            brr(n, 3) = zbry(j)
        Next
    End If
Next
[a11].Resize(n, 3) = brr
End Sub

sayhi95

高版本供参考

1. =VSTACK(A2:C2,LET(t,DROP(REDUCE(0,B3:B5,LAMBDA(x,y,VSTACK(x,IF({1,0},y,TEXTSPLIT(OFFSET(y,,1),," ",1))))),1),HSTACK(SEQUENCE(ROWS(t)),t)))

复制代码