使用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
    Next
End Sub

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