如何对excel多个列快速分列？

swjia8315 · 发表于 2024-1-1 17:03

本帖最后由 swjia8315 于 2024-1-1 18:52 编辑

系统导出的excel，每个列都需要分列一下，手动的话就是直接点击分列后完成即可，不需要设置任何规则。

但是无法选择多个列同时分列。

哪怕用vba，100多个列一个个操作也很耗时间。因为经常需要从系统中导出excel。

请问下有没有什么快速点的办法，例如多列同时操作分列也可以
例如下表，蓝色的行就是未分列时候样子，分列后就靠右排，红色就是分裂后效果。

例子见附件

sunya_0529 · 发表于 2024-1-1 17:09

看截图，应该是数字保存成了文本格式，不需要分列也能处理好。复制一个空白单元格，然后选中要处理的单元格区域，使用右键->选择性粘贴->数值（运算选加或减）

swjia8315 · 发表于 2024-1-1 17:59

sunya_0529 发表于 2024-1-1 17:09
看截图，应该是数字保存成了文本格式，不需要分列也能处理好。复制一个空白单元格，然后选中要处理的单元格 ...

确实，感谢

swjia8315 · 发表于 2024-1-1 18:03

sunya_0529 发表于 2024-1-1 17:09
看截图，应该是数字保存成了文本格式，不需要分列也能处理好。复制一个空白单元格，然后选中要处理的单元格 ...

但是发现个缺点，就是原有的数据格式，例如百分数全部转化为小数格式了，证书也转化为统一固定的小数格式

ykcbf1100 · 发表于 2024-1-1 18:19

swjia8315 发表于 2024-1-1 18:03
但是发现个缺点，就是原有的数据格式，例如百分数全部转化为小数格式了，证书也转化为统一固定的小数格式 ...

摸拟一点数据，上传一个附件，这样更容易解决问题。

swjia8315 · 发表于 2024-1-1 18:53

ykcbf1100 发表于 2024-1-1 18:19
摸拟一点数据，上传一个附件，这样更容易解决问题。

感谢提醒

附件如下

lizhipei78 · 发表于 2024-1-1 19:06

ykcbf1100 · 发表于 2024-1-1 19:07

参与一下。。。

Sub ykcbf() '//2024.1.1
arr = Sheets("Sheet1").UsedRange
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
On Error Resume Next
For i = 2 To UBound(arr)
If arr(i, 1) <> Empty Then
m = m + 1
brr(m, 1) = arr(i, 1)
brr(m, 2) = arr(i, 2)
For j = 3 To UBound(arr, 2)
brr(m, j) = Val(arr(i, j))
Next
End If
Next
With Sheets("Sheet2")
.Columns(1).NumberFormatLocal = "yyyy-m-d"
.[a2].Resize(m, UBound(brr, 2)) = brr
End With
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-1 19:08

swjia8315 发表于 2024-1-1 18:53
感谢提醒

附件如下

附件供参考。。。

swjia8315 · 发表于 2024-1-1 20:23

ykcbf1100 发表于 2024-1-1 19:08
附件供参考。。。

感谢，有个问题请问下

如下图，红圈里是之前已经变成20231230这样格式的数据，蓝圈是2023-12-30格式
运行.Columns(1).NumberFormatLocal = "yyyymmdd"之后，红圈里就变成许多#，单元格拉宽也没用。
而下面转变过来的则显示正常。

但是如果在运行一下次，下面蓝圈的也会变成#
请问有办法解决吗？

		自动登录	找回密码
密码			免费注册

[求助] 如何对excel多个列快速分列？

评分

评分