Question

EXCEL的问题： 请问在A1单元格中的内容是"0415231090 ,0888082505 ,8521410100" 这些数值，如何输入成列。

如题，比如A1中的内容是 “0415231090 ,0888082505 ,8521410100”， 请问用哪个公式可以将其拆分到三个不同的数列单元格内。比如B1是0415231090, B2是0888082505, B3是8521410100？
非常感谢！

Answer 1

将A1内容粘贴至B1，然后在出现的“粘贴选项”中，选择“使用文本导入向导”。

然后在第二步中，勾上“逗号”，然后“完成”即可

追问

我是ＯＦＦＩＣＥ９不是97所以没有“使用文本导入向导”。

追答

office9是PaperPort Pro Office 9.0 ？？你说的excel不是常说的微软的office excel？？
大哥，这么多人回答问题，一开始您可没说不是office excel呀

追问

不好意思，我写错了。我用的是OFFICE EXCEL2003，没有这个“粘贴选项”中选择“使用文本导入向导”的选项啊？只有“选择性粘贴”，但是其中也没有“使用文本导入向导”。请指教。

追答

2003呀，我还真没用过，不过不应该没有呀，2000都有。
以下是2007的工具栏位置，可能跟你的不太一样，你找找看：
将A1内容粘贴至B1，工具栏“数据”－》“数据工具”－“分列”
也能弹出那个图片中的窗口

追问

请见图片，只能横向排列数字，不知道怎么让数字纵向排列。

追答

。。。
横向排列之后，在复制，点击右键，选择“选择性粘贴”，勾上“转置”
即可横变竖

Answer 2

直接选中A列，数据-分列-分割符号填逗号就可以
公式的话，B1输入
=TRIM(MID(SUBSTITUTE($A1,",",REPT(" ",50)),COLUMN(A1)*50-49,50))
向右填充

追问

谢谢你的回答，但是
-1- 用“直接选中A列，数据-分列-分割符号填逗号就可以”这个方法的结果是，数字虽然都分开了，但是分别分在了 A1 B1 C1，而不是我想要的A1 A2 A3。
-2- 是在看不懂这个函数，请指教。
另外：我的问题中的数字可能是很多了，不止3个。
谢谢！

追答

如果是向下填充把column改成row
B1输入，往下填充，跟你数字多少没关系
=TRIM(MID(SUBSTITUTE($A1,",",REPT(" ",50)),row(A1)*50-49,50))

Answer 3

使用left函数、right函数、mid函数

left函数的用法：B1=left（A1，10）
意为从返回左边的10个数字
right函数同理，不过是从右边数，B3=right（A1，10）

mid函数这样用：B2=mid（A1，12，10）
意为从A1的第12个字符开始算，往右数10个字符，然后返回结果。

应该能解决你的问题

Answer 4

选中A1，选择菜单“数据”-“数据工具”-“分列”
然后选择 分隔符号-下一步-逗号-完成
这样A1中的数据就被分开到A1-A3中了。

Answer 5

用数据分列吧，分好后再转置就行了。

追问

谢谢，请问有一步到位的方法么？

追答

我自己编写的VBA函数要吗，可以完成这个功能，不光是，分隔，汉字和其它字母及符号出可以，需要请追问。

追问

VBA函数是在EXCEL中应用的吗？ 我需要，谢谢！

追答

友情提示：好用的话加分啊，呵呵
语法：TAKEOUT(被取字符串,取值类型,序号)
被取字符串：含有数字、汉字和字母的不规则字符串。
取值类型：（数字1、2）1代表汉字子串，2代表数字子串。
序号：（数字1到3）代表要取出子串在被取字符串从左到右的第几个。
例：A1=0415231090 ,0888082505 ,8521410100，
则在B1输入：=takeout(A1,2,1) 则值为："0415231090"
B2输入：=takeout(A1,2,2) 则值为："0888082505"
B3输入：=takeout(A1,2,3) 则值为："8521410100"
同样，对提取汉字也是一样的。

Function takeout(str, zt, s)
On Error GoTo errtakeout1
Dim m As Integer
str = str & " "
If s = 1 Then
m = 0
Else
If s = 2 Then
m = -2
Else
If s = 3 Then
m = -4
Else
GoTo errtakeout1
End If
End If
End If
If zt = 1 Then
For i = 1 To Len(str)
If Asc(Mid(str, i, 1)) >= -20319 And Asc(Mid(str, i, 1)) 0 Then
takeout = Mid(str, m, i - m)
Exit Function
End If
End If
Next
takeout = ""
Exit Function
Else
If zt = 2 Then
For i = 1 To Len(str)
If Asc(Mid(str, i)) > 47 And Asc(Mid(str, i)) 0 Then
takeout = Mid(str, m, i - m)
Exit Function
End If
End If
Next
takeout = ""
Exit Function
Else
GoTo errtakeout1
End If
End If
errtakeout1:
takeout = "#NAME?"
End Function

Answer 6

点数据分列，固定宽度，然后自己按需要调整分列线