正则表达式搜寻出所需

lchzh

http://club.excelhome.net/forum. ... =1314055&page=1
这个是我搜索到的一个例子，其实我的用途刚好与这个例子相反，是要将搜到的显示出来，要怎么弄呢
Sub test()
  Dim r%, i%
  Dim arr, brr
  Dim rng As Range
  Dim reg As New RegExp
  With reg
    .Global = True
    .Pattern = "小号|中号|大号|定制|防风"
  End With
  With Worksheets("sheet1")
    AutoFilterMode = False
    .Rows.Hidden = False
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 3 To r
      If reg.test(.Cells(i, 5)) Then
        If rng Is Nothing Then
          Set rng = .Rows(i)
        Else
          Set rng = Union(rng, .Rows(i))
        End If
      End If
    Next
    If Not rng Is Nothing Then
      rng.Rows.Hidden = True
    End If
  End With
End Sub

dgenson

改了下你可以用
Sub test()
  Dim r%, i%
  Dim arr, brr
  Dim rng As Range
  Dim reg As Object
  Set reg = CreateObject("vbscript.regexp")
  With reg
    .Global = True
    .Pattern = "中(号|式)"
  End With
  With Worksheets("sheet1")
    AutoFilterMode = False
    .Rows.Hidden = False
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 2 To r
      If Not reg.test(.Cells(i, 5)) Then
        If rng Is Nothing Then
          Set rng = .Rows(i)
        Else
          Set rng = Union(rng, .Rows(i))
        End If
      End If
    Next
    If Not rng Is Nothing Then
      rng.Rows.Hidden = True
    End If
  End With
End Sub

dgenson

改好了在审核

zpy2

我也来一个正则查询。。。

月关

Sub 提取()
Set q = CreateObject("vbscript.regexp")
With q
.Global = True
.Pattern = "中号.+中式"
For Each m In Range("e1:e" & [a1].CurrentRegion.Rows.Count)
If .test(m) Then m.Interior.ColorIndex = 22
Next
End With
End Sub


正则表达式如何搜出所需.rar (17.21 KB, 下载次数: 6)

2019-7-10 08:13 上传

点击文件名下载附件

tspliu

'不理解为什么非要正则， 借楼上代码
Sub 提取()
For Each m In Range("e1:e" & [a1].CurrentRegion.Rows.Count)
If m Like "*中号*中式*" Then m.Interior.ColorIndex = 22
Next
End Sub

lwx228

看着标题进来了、
人家说明是要用正则、
表明他是想学正则、只是以此题为例。

lwx228

如果不用正则、按其结果用函数、或条件格式都可实现

lwx228

学习中
谢谢！

DevilW

同时包含（中式、中号），不分先后顺序

1. (?=.*中式)(?=.*中号).+

复制代码