各位大佬们，这种类型的宏怎么搞鸭

Sub 扩行()
　　[e:g].ClearContents
　　Set k = [a1].End(4)
　　Set v = [c1].CurrentRegion
　　Set b = [e1]
　　r = v.Rows.Count
　　While k.Row > 1
　　　　With b.Offset((r - 1) * (k.Row - 2))
　　　　　　.Resize(r).Value = k
　　　　　　v.Copy .Offset(, 1)
　　　　End With
　　　　Set k = k.Offset(-1)
　　Wend
　　b.Value = k
End Sub