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

 1 Private Sub RegExp_GetNeedData()
 2 
 3     Dim RegExp As Object
 4     Dim SearchRange As Range, Cell As Range
 5     
 6     ‘此处定义正则表达式
 7     Set RegExp = CreateObject("vbscript.regexp")
 8     
 9     ‘需要重新定义的地方在这里
10     keyword = "keyword"
11     n = 5
12     RangeVar = "D1:D100"
13     
14     RegExp.Pattern = keyword
15     ‘此处指定查找范围
16     Set SearchRange = ActiveSheet.Range(RangeVar)
17     Dim i As Integer
18     For i = 1 To n
19       Cells(1, n + i + 1) = Cells(1, i)
20     Next
21     Line = 2
22     ‘遍历查找范围内的单元格
23     For Each Cell In SearchRange
24         cloumn = Cell.Column
25         Set Matches = RegExp.Execute(Cell.Value)
26         If Matches.Count >= 1 Then
27             Set Match = Matches(0)
28             Dim j As Integer
29             For j = 1 To n
30               Cells(Line, n + j + 1) = Cells(Cell.Row, j)
31             Next
32             Line = Line + 1
33         End If
34     Next
35 
36 End Sub