用正则拆分

yannierr

老师：请教一下，我想用正则拆分，正则表达式写好了，现在就输出时有点不会，请老师指教，谢谢

liulang0808

分列就可以吧。。。。

gwjkkkkk

应该这样吧，简单修改一下。。。

DevilW

直接用 -* 替换掉就完了

饮冰e士

学习一下：

Sub 对A列正则拆分()
Dim Rn&
  Set regx = CreateObject("vbscript.regexp")
  Rn = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
  With regx
    .Global = True
    .Pattern = "^[\w]+"
    For Each Rng In Sheet1.Range("a2:a" & Rn)
      Set mat = .Execute(Rng.Value)
      Cells(Rng.Row, "D") = mat(0).Value
    Next
  End With
End Sub

ykcbf1100

这么简单的拆分完全可以不用正则，用split函数即可，简单。

附件供参考。。。

ykcbf1100

用split函数写一个。。。

yannierr

gwjkkkkk： 老师谢谢你，正是我要的。饮冰e士：老师，你的也是正解，谢谢！其它老师的方法我也会的。

今铭昔

ykcbf1100

用正则写一个吧。