Excel用VBA全选一个单元格的数据，复制到剪切板，再粘贴到其他位置。

Question

Excel用VBA全选一个单元格的数据，复制到剪切板，再粘贴到其他位置。将图1内容复制后，粘贴成图2的样式。

Answer 1

Sub tt()
b = Split([a1], vbLf)
For n = 0 To UBound(b)
Range("c" & n + 1 & ":d" & n + 1) = Split(b(n))
Next
End Sub

没有用到复制粘贴，也可以实现需求

Answer 2

直接手工操作就好了
在编辑栏全选
到所需处左上角粘贴
菜单数据分列
完工