Question

如何在VBA中编程对EXCEL中数据进行分列 带图片的

excel2013分列保存关了后 下次再打开 还得重新分列要不然重新粘贴的数据还是在一格里面高手些 看看我这个分列的宏 怎么不对Sub 分列()'' 分列 宏''Sheets("数据").SelectSelection.ClearContentsRange("B3").SelectActiveSheet.PasteActiveSheet.PasteSheets("统计").SelectEnd Sub我感觉这个分列没起作用

像上面这个图上粘贴的数据就是在sheet1的A1这一格中 我要在sheet2中按分列这个按钮后把它分列后成下面第三个图片这样的 一个格一个数据

分列后的数据要成这样的

请高手些帮我修改一下这个 谢谢了





Answer 1

Sub 分列()
    Worksheets("数据").Select'激活"数据"工作表
    Range("A1").Select'选中A1
    ActiveSheet.Paste'粘贴
    Columns("A:A").TextToColumns DataType:=xlDelimited, Space:=True'用空格对A列分列
End Sub

追问

明天试试，先谢谢了

追答

给个采纳呗，任务缺一个...

追问

手机不会用，明天用电脑弄

追答

算了，刷到题了。

Answer 2

arr=split(Sheet1.[a1]," ")
Sheet2.[a1].resize(1,ubound(arr)+1)=application.TRANSPOSE(application.TRANSPOSE(arr))

追问

怎么加在我发的里面？

追答

这本来就是完整的代码
sub t()

arr=split(Sheet1.[a1]," ")
Sheet2.[a1].resize(1,ubound(arr)+1)=application.TRANSPOSE(application.TRANSPOSE(arr))
end sub