通过正则表达式提取excel特定列中含有关键字的所有行数据

在 Excel 中打开需要提取数据excel文件，使用 Alt+F11 快捷键打开 VBA 项目窗口，在左侧的工作表名称上点右键，选择查看代码，即可出现右侧的编辑代码窗口（如下图）

在代码窗口中输入以下代码：

 Private Sub RegExp_GetNeedData()

     Dim RegExp As Object
     Dim SearchRange As Range, Cell As Range

     '此处定义正则表达式
     Set RegExp = CreateObject("vbscript.regexp")

     '需要重新定义的地方在这里
     keyword = "keyword"
     n =
     RangeVar = "D1:D100"

     RegExp.Pattern = keyword
     '此处指定查找范围
     Set SearchRange = ActiveSheet.Range(RangeVar)
     Dim i As Integer
      To n
       Cells(, n + i + ) = Cells(, i)
     Next
     Line =
     '遍历查找范围内的单元格
     For Each Cell In SearchRange
         cloumn = Cell.Column
         Set Matches = RegExp.Execute(Cell.Value)
          Then
             )
             Dim j As Integer
              To n
               Cells(Line, n + j + ) = Cells(Cell.Row, j)
             Next
             Line = Line +
         End If
     Next

 End Sub

根据需要可以替换掉keyword ，n， RangeVar；他们的意思分别是，需要匹配的关键字，表格数据列数，要匹配关键字的范围；