如何根据单元格内的行数插入行并填充数据

amd001

如：附件单元格内有4行数据，需要在其下方插入三行，并分别录入单元格内的2-3行的数据？

谢谢各位大大们~~~

gwjkkkkk

Sub TEST()
    Dim arr, brr, crr, vResult, i&, j&, k&, R&
    arr = [A1].CurrentRegion
    ReDim vResult(1 To UBound(arr) * 10, 1 To UBound(arr, 2))
    R = 1
    For i = 1 To UBound(arr, 2): vResult(R, i) = arr(R, i): Next
    For i = 2 To UBound(arr)
       brr = Split(arr(i, 8), vbLf): crr = Split(arr(i, 9), vbLf)
       For j = 0 To UBound(brr)
          R = R + 1
          If j = 0 Then
             For k = 1 To UBound(arr, 2) - 2
               vResult(R, k) = arr(i, k)
             Next k
          End If
          vResult(R, 8) = brr(j)
          vResult(R, 9) = crr(j)
       Next j
    Next i
    [A21].CurrentRegion.Clear
    [A21].Resize(R, UBound(vResult, 2)) = vResult
    Beep
End Sub

gwjkkkkk

请参考附件。。。

amd001

gwjkkkkk 发表于 2022-12-1 18:23
请参考附件。。。

谢谢~~~就是这个样子。。。感谢·