Question

如何在VBA中编程对EXCEL中数据进行分列

excel2013分列保存关了后 下次再打开 还得重新分列要不然重新粘贴的数据还是在一格里面

高手些 看看我这个分列的宏 怎么不对

Sub 分列()
'
' 分列 宏
'

'
Sheets("数据").Select
Selection.ClearContents
Range("B3").Select
ActiveSheet.Paste
ActiveSheet.Paste
Sheets("统计").Select
End Sub
我感觉这个分列没起作用

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

Answer 1

Sub 分列()
Sheets("数据").Select'激活“数据”工作表
Selection.ClearContents'清除“数据”表中，当前选中区域的内容
Range("B3").Select'选中B3单元格
ActiveSheet.Paste'粘贴
ActiveSheet.Paste'粘贴
Sheets("统计").Select'激活“统计”工作表
End Sub

你的代码里根本没有分列啊~

追问

就是的。我录制宏的，怎么弄才会有呢？谢谢了

追答

你想怎么分啊？以下例子是A列分列
columns("A:A").TextToColumns Destination:="-",
DataType:=xlDelimited

追问

谢谢了，明天我试试，今天出去玩，太累了，已经上床休息了

Answer 2

看不懂你怎么个分列法。

追问

我录制宏，就是没有分成功。可是再粘贴一下就又可以分列了

追答

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(1, 1)), TrailingMinusNumbers:=True

这才是分列的代码

追问

ActiveSheet.Paste

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1)), TrailingMinusNumbers:=True
ActiveSheet.Paste

追答

你要粘贴的是什么东西？内容要先放到剪贴板才可以

追问

我是先放在剪贴板的