2010版excel 怎么分列

发布网友发布时间：2022-04-24 14:00

共3个回答

热心网友时间：2023-10-17 00:29

完善下森林浴1 的代码,按ALT+F11,菜单-插入-模块-右边空白处粘贴以下代码，按F5执行，代码如下：
Sub DOIT()
For k = 1 To 5
For i = 1 To 5
If Cells(i, k) <> "" Then
a = Mid(Cells(i, k), 4, 2)
b = Mid(Cells(i, k), 1, 2)
c = Mid(Cells(i, k), 7, 4)
Cells(i, k) = a & "/" & b & "/" & c
Cells(i, k).NumberFormatLocal = "mm/dd/yyyy"
End If
Next i
Next k
End Sub

其中For k = 1 To 5
For i = 1 To 5
第一句指的1到5列
第二句指的1到5行
你可以根据自己的实际数据范围进行适当更改。
如你的数据区域为A1:F8的话，就应写为：
For k = 1 To 6
For i = 1 To 8
其余不变。
你可以给该宏指定一个快捷键，以后用快捷键就行。
祝你成功！

热心网友时间：2023-10-17 00:30

选择要转换的数据区域。
在“数据”选项卡上的“数据工具”组中，单击“分列”。

热心网友时间：2023-10-17 00:30

在“数据”里面找找。