替换特定字符后的内容

zuyong2

将B列中包含“院有限公司”、“院”、“公司”之后的内容去除，只保留公司名称，达到C列的效果。自己改了一个，部分达不到效果

darklesson

还用能上正则式啊，杀鸡焉能用宰牛刀。
Sub my名称替换()
Dim i%, arr
i = Range("B65536").End(3).Row
arr = Range("b4:b" & i)
For i = 1 To UBound(arr)
arr(i, 1) = IIf(InStr(arr(i, 1), "公司"), Split(arr(i, 1), "公司")(0) & "公司", Split(arr(i, 1), "院")(0) & "院")
Next i
Range("C4").Resize(UBound(arr), 1) = arr
End Sub

lsc900707

没用正则：

1. Sub gj23w98()
   
2.     arr = [a1].CurrentRegion
   
3.     For i = 3 To UBound(arr)
   
4.         If Len(arr(i, 2)) > 6 Then
   
5.             s = InStr(arr(i, 2), "院"): s1 = InStr(arr(i, 2), "司")
   
6.             If s > 0 And s1 = 0 Then
   
7.                 arr(i, 2) = Left(arr(i, 2), s)
   
8.             ElseIf s = 0 And s1 > 0 Then
   
9.                 arr(i, 2) = Left(arr(i, 2), s1)
   
10.             ElseIf s > 0 And s1 > 0 Then
    
11.                 arr(i, 2) = Left(arr(i, 2), s1)
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     [a1].CurrentRegion = arr
    
16. End Sub

复制代码

清风竹-

请看附件。

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) = Left(arr(i, 1), InStr(arr(i, 1), "公司") + 1)
       ElseIf InStr(arr(i, 1), "院") Then
           arr(i, 2) = Left(arr(i, 1), InStr(arr(i, 1), "院"))
       End If
    Next
    Range("C3:C" & row) = Application.Index(arr, , 2)
End Sub

smiletwo

   附件传得快

zuyong2

回去研究研究.谢谢各位，还得继续加油学习才行。

ggmmlol

1. Sub my名称替换()
   
2.     Dim r&, j&, arr
   
3.     r = Cells(Rows.Count, 2).End(xlUp).Row
   
4.     arr = Range("B3:B" & r)
   
5.     With CreateObject("VBSCRIPT.REGEXP")
   
6.         .Pattern = "^(.*(?:公司|院))|.*"
   
7.         .Global = True
   
8.         For j = 1 To r - 2
   
9.             arr(j, 1) = .Replace(arr(j, 1), "$1")
   
10.         Next
    
11.     End With
    
12.     Range("C3:C" & r) = arr
    
13. End Sub

复制代码

qlmgu

ggmmlol 发表于 2020-11-28 09:59

ggmmlol大师您好，又看到您的作品了。攒。我想得到相反的结果，即保留特定字符后的全部内容，应该如何修改程序呢？谢谢您。

qlmgu

smiletwo 发表于 2020-11-27 17:44
Sub my名称替换()
    Dim i%, row%, arr
    row = Cells(Rows.Count, 2).End(3).row

smiletwo您好，您的作品很好用。我想得到相反的结果，即保留特定字符后的全部内容，应该如何修改程序呢？谢谢您。