使用VB操作Excel(随笔记录)

需求：把excel表格中的一列杂乱的数据，指定数据保留。

eg：某一列 某一行数据为 满100元减20元 为了数据的方便 我们只需要保留20即可
excel我不太熟悉，不知道通过鼠标点击以及函数能否解决这个需求，但是通过VB我们就能高效率的解决此问题。

我本身不会VB，通过网上资源，对照着写了一段。注释可能会有问题

Private Sub RegExp_Replace()    Dim RegExp As Object    Dim SearchRange As Range, Cell As Range    '定义正则表达式    Set RegExp = CreateObject("vbscript.regexp")    RegExp.Pattern = "满.*元减"    '指定查找范围    Set SearchRange = ActiveSheet.Range("R2:R10001")    '遍历查找范围内的单元格    For Each Cell In SearchRange        '获取单元格内的数据        Set Matches = RegExp.Execute(Cell.Value)        '如果单元格内有数据，就按照正则操作        If Matches.Count >= 1 Then            Set Match = Matches(0)            Cell.Value = RegExp.Replace(Cell.Value, "")        End If    NextEnd Sub

打开Excel 按Alt+F11会打开VB运行框，选择要操作的对象 输入代码 运行即可