Question

excel vba提取单元格里符号后面的数据

例如101-小明，我要用vba程序把 - 前面的101提取出来，然后再把 - 后面的小明提取出来。代码该怎么写？
我不要公式的，要vba程序能用的代码。感谢！

Answer 1

1. 将需要分离的文字或数据放到表格的列或者行中。

2. 选中需要分离的字符或者文字表格。

   
   

   

3. 选择顶部菜单的“数据”选项卡。

   

4. 选择“数据”选项卡下面的“分列”菜单。

   

5. 好了，重点来了，选择第一个选项“分隔符号”

   

6. 在分隔符号中，选择“其他”并在旁边个输入框中输入隔离符号。如果符号是多个同样的话，需要勾选上“连续符号视为单个处理”的选项。注意：此步骤很重要。

   

7. 点击进入下一步----再点击完成。

   

8. 完成 如下图：

   

Answer 2

自定义函数代码如下：

Function mm(ByVal rg As Range, op As Integer)
Dim regEx As Object
Set regEx = CreateObject("VBscript.regExp")
If op <> 1 And op <> 2 Then mm = "": GoTo inext
With regEx
    .Global = True
    If op = 1 Then .Pattern = "\D"
    If op = 2 Then .Pattern = "[^\u4e00-\u9fa5]"
    mm = .Replace(rg, "")
End With
inext:
End Function

使用方法：

=mm($A1,COLUMN(A1))

如图

Answer 3

cells(1,2)=split(cells(1,1),"-")(0)
cells(1,3)=split(cells(1,1),"-")(1)