excel 拆分 取值

Question

有一个EXCEL 表格，在A1这一列中输入的数值为如下内容

快开水嘴6’
不锈钢球阀4’
不锈钢球阀1’’
法兰截止阀φ32mm
法兰截止阀φ40mm

每一行里的数值都不一样，有商品的名称和型号，
现在要将这些名称和规格拆分开，分别写在同一行的两列中，
例如将 1行A列里的 快开水嘴6’ 拆分成 快开水嘴写入1行B列中，将6’写入1行C列中，
如果是一两个 有规则的 很好处理
但是现在有几百行这样的数据 并且每一行内的品名和型号的字符长度都不相同，如何取出并拆分啊？
请高手指教！

Answer 1

你按照以下操作来，有点麻烦，但能批量操作：
第一个操作：先分开每个字
1. 先把你所有的东西都拷贝一下，让后放在txt文档中，储存（假设名字为temp.txt)
2. 打开excel程序，选择打开，在文件类型选择所有文件（*.*）
3. 选中你所储存的temp.txt
4. 选择合适的文件类型为固定列宽，然后点下一步。
5. 在数据预览处你用鼠标按每个字进行分割。然后选择下一步，再选择完成。
这样你就把每个字都分开了。

第二操作：合并你所需要的。
对新打开的进行排序，先按第5列排，由于数字会排在前面，因此，第5位是数字的就在前面，你把这些文字部分和数字部分分别拷贝出来，在放在txt文档中，然后在按步骤一反操作一下。
接着按第6位排序、第7位排序....
这样你能批量操作了。

如果你需要最后还是保持原来的顺序，建议在前面先加个编号，最后按编号排序就OK了。

Answer 2

分析一下你的数据规律，数字和字母的ASC值都是正数，汉字的Asc值为负数，其他特殊字符你可以找到其规律，然后用来作为分界进行数据分隔。
Sub tmp()
Dim i As Integer, C As Integer, N As String
Dim N1 As String, na As Integer, ns As Integer
For i = 1 To 5
N = Sheet1.Cells(i, 1)
na = Len(N)
For C = 1 To na
N1 = Mid(N, C, 1)
ns = Asc(N1)
If N1 = "φ" Or ns > 0 Then
Sheet1.Cells(i, 2) = Mid(N, 1, C - 1)
Sheet1.Cells(i, 3) = Mid(N, C, na)
Exit For
End If
Next
Next
End Sub
这是我根据你给出的样子做出的判断代码，或以区分汉字和数字，把前一部分的汉字保存到第二列中，把后面的部分保存到第三列中，如果有φ，把它也保存到第三列。其他特殊符号你可以自行添加到判断中。

Answer 3

你要分的地方有数字也有符号，不好操作，有一个稍微简单点的办法。看你的产品名称比较有规律，都是以阀或嘴结尾，那么，在有阀的单元格写如下函数：B2=LEFT(A2,FIND("阀",A2,1)) C2=RIGHT(A2,FIND("阀",A2,1)) 在有嘴的单元格把公式中“阀”改成“嘴”就可以了。

Answer 4

VBA，编一个宏，然后运行一下：
Sub 宏()
Sheets("sheet1").Select
For r = 1 To 65536
s = Cells(r, 1)
If s = "" Then Exit For
For i = 1 To Len(s)
If Asc(Mid(s, i)) > 0 Then Exit For'如果象把φ之类的分到后边，将Asc(Mid(s, i)) > 0修改为Abs(Asc(Mid(s, i))) < 20000试一下
Next
If i <= Len(s) Then
Cells(r, 2) = Mid(s, i)
Cells(r, 1) = Left(s, i - 1)
End If
Next
End Sub

Answer 5

点选B1单元格，ctrl+F3，名称位置输入aa
引用位置输入以下公式
=MAX(IF(CODE(MID(C1,ROW(INDIRECT("1:"&LEN(C1))),1))=10,ROW(INDIRECT("1:"&LEN(C1)))))
添加，确定
在B1输入以下公式
=LEFT(MID(C1,aa,99),LEN(MID(C1,aa,99))*2-LENB(MID(C1,aa,99)))