替换特定字符后的内容

ggmmlol

qlmgu 发表于 2020-11-28 13:57
smiletwo您好，您的作品很好用。我想得到相反的结果，即保留特定字符后的全部内容，应该如何修改程序呢？ ...

把捕获分组设为后面的内容。具体一点，就是把正则表达式修改如下

.Pattern = "^.*(?:公司|院)(.*)|.+"

qlmgu

ggmmlol 发表于 2020-11-28 14:04
把捕获分组设为后面的内容。具体一点，就是把正则表达式修改如下

.Pattern = "^.*(?:公司|院)(.*)|.+"

谢谢您。我马上试试

卒子东

123.rar (24.09 KB, 下载次数: 10)

2020-11-28 14:21 上传

点击文件名下载附件

看看是不是这样！

qlmgu

ggmmlol 发表于 2020-11-28 14:04
把捕获分组设为后面的内容。具体一点，就是把正则表达式修改如下

.Pattern = "^.*(?:公司|院)(.*)|.+"

可以实现保留关键字后面的内容了。谢谢您。我刚才说漏了，能保留那些特定字符吗，即把公司，院 保留在结果里？谢谢。

ggmmlol

qlmgu 发表于 2020-11-28 14:21
可以实现保留关键字后面的内容了。谢谢您。我刚才说漏了，能保留那些特定字符吗，即把公司，院 保留在结 ...

.Pattern = "^.*((?:公司|院).*)|.+"

qlmgu

ggmmlol 发表于 2020-11-28 14:30
.Pattern = "^.*((?:公司|院).*)|.+"

太感谢了。十分准确。

smiletwo

qlmgu 发表于 2020-11-28 13:57
smiletwo您好，您的作品很好用。我想得到相反的结果，即保留特定字符后的全部内容，应该如何修改程序呢？ ...

Sub my名称替换()
    Dim i%, row%, arr
    row = Cells(Rows.Count, 2).End(3).row
    arr = Range("B3:C" & row)
    For i = 1 To UBound(arr)
       If InStr(arr(i, 1), "公司") Then
           arr(i, 2) = Right(arr(i, 1), Len(arr(i, 1)) - InStr(arr(i, 1), "公司") - 1)
       ElseIf InStr(arr(i, 1), "院") Then
           arr(i, 2) = Right(arr(i, 1), Len(arr(i, 1)) - InStr(arr(i, 1), "院"))
       End If
    Next
    Range("C3:C" & row) = Application.Index(arr, , 2)
End Sub

smiletwo

qlmgu 发表于 2020-11-28 13:57
smiletwo您好，您的作品很好用。我想得到相反的结果，即保留特定字符后的全部内容，应该如何修改程序呢？ ...

   如有用请送花

qlmgu

卒子东 发表于 2020-11-28 14:21
看看是不是这样！

十分感谢。我马上试试。

qlmgu

smiletwo 发表于 2020-11-29 16:48
如有用请送花

smiletwo 您好。非常感谢您的回复和为我修改的程序-可以提取关键词后面的成分了。但是如果能把关键词也包括进去就更好。再次感谢。