I’ve a Macro to split a cell and shift cells down, as the following:
Sub SplitCell()
Dim s As String, v As Variant, l As Long
s = ActiveCell.Value
v = Split(s, vbLf)
l = UBound(v) - LBound(v) + 1
If l > 1 Then
ActiveCell.Offset(1, 0).Resize(l - 1, 1).Insert Shift:=xlShiftDown...