求助用VBA实现多个工作表的分列

TjExcel360

每个工作表的数据类型如附件所示，

整个工作簿有很多个附件这样子的工作表，求助如何直接将这些工作表A列分列

。

爱疯

建议上传附件，具体的说明
http://www.excelpx.com/thread-149787-1-1.html

TjExcel360

爱疯 发表于 2019-4-16 16:23
建议上传附件，具体的说明
http://www.excelpx.com/thread-149787-1-1.html

你是管理员，还是要回答问题呀

爱疯

我是版主，也是来学习的

爱疯

这是从系统导出的么？
比如，a3里 4.4285941447935601e-002，该数末尾就是这样，还是有具体值的？

TjExcel360

爱疯 发表于 2019-4-17 09:25
这是从系统导出的么？
比如，a3里 4.4285941447935601e-002，该数末尾就是这样，还是有具体值的？

一直没来得及登陆，这些文件是从Maxwell中导出来的，是有实际意义的数

爱疯

TjExcel360 发表于 2019-4-24 15:50
一直没来得及登陆，这些文件是从Maxwell中导出来的，是有实际意义的数

如a3里，4.4285941447935601e-002
a3本该精确到末位，可现在不知道末位的值


在以上这种情况下，你还希望分列这些文本吗？

爱疯

Sub test()
    Dim i
    Application.DisplayAlerts = False
    For i = 1 To Sheets.Count
        Sheets(i).Range("a:a").TextToColumns DataType:=xlDelimited, ConsecutiveDelimiter:=True, Space:=True    '按空格
    Next i
End Sub

1.rar (456.18 KB, 下载次数: 6)

2019-4-24 16:42 上传

点击文件名下载附件


这样吗？改下录制宏

TjExcel360

爱疯 发表于 2019-4-24 16:42
Sub test()
    Dim i
    Application.DisplayAlerts = False

就是这样分列，同一个工作簿，我有很多个sheet，可以同时将很多个sheet的数据进行分列么

爱疯

TjExcel360 发表于 2019-4-24 16:55
就是这样分列，同一个工作簿，我有很多个sheet，可以同时将很多个sheet的数据进行分列么

这是对所有工作表的。

只需把这个代码放在实际工作簿中，再执行就可以了。