[已解决]请教各位，把B列店名1里的品牌去掉，变成品牌2放在C列

chensir

1、        把B列店名1里的，品牌去掉变成店名2放在C列
2、        如果店名1里第一个是字母，这个字母要保留

尽量用一个速度比较快的代码

多谢

最佳答案

月排行榜 / 总排行榜

爱疯

2013-11-18 18:35

Sub Test()
    Dim A, i
    A = Range("A1:C" & Range("B65536").End(xlUp).Row)
    With CreateObject("VBScript.RegExp")
        .Pattern = "[^\u4E00-\u9FA5]{2,}"
        For i = 2 To UBound(A)
            If .Test(A(i, 2)) Then A(i, 3) = .Replace(A(i, 2), "")
        Next i
    End With
    Range("A1").Resize(UBound(A), UBound(A, 2)) = A
End Sub
3.rar (14.36 KB, 下载次数: 8)

2013-11-18 18:22 上传

点击文件名下载附件


正则我懂的少，没办法只好偷懒，这么定义的品牌特征：首次出现，非中文，长度至少2个的子串。

这样可能较大误判，你再根据更多实际数据核实下。最好你给出像我上面的文字的定义。其他朋友才好想办法。

跳转到最佳答案楼层

爱疯

Sub Test()
    Dim A, i

    A = Range("A1:C" & Range("B65536").End(xlUp).Row)
    With CreateObject("VBScript.RegExp")
        .Global = False
        .Pattern = "[A-Za-z]+\w+"
        
        For i = 2 To UBound(A)
            If .Test(A(i, 2)) Then A(i, 3) = .Replace(A(i, 2), "")
        Next i
    End With
    Range("A1").Resize(UBound(A), UBound(A, 2)) = A
End Sub
工作簿2.rar (14.88 KB, 下载次数: 5)

2013-11-18 17:08 上传

点击文件名下载附件

chensir

爱疯 发表于 2013-11-18 17:08
Sub Test()
    Dim A, i

谢谢。漏了寄卖了。请看附件第15行，谢谢

爱疯

Sub Test()
    Dim A, i
    A = Range("A1:C" & Range("B65536").End(xlUp).Row)
    With CreateObject("VBScript.RegExp")
        .Pattern = "[^\u4E00-\u9FA5]{2,}"
        For i = 2 To UBound(A)
            If .Test(A(i, 2)) Then A(i, 3) = .Replace(A(i, 2), "")
        Next i
    End With
    Range("A1").Resize(UBound(A), UBound(A, 2)) = A
End Sub
3.rar (14.36 KB, 下载次数: 8)

2013-11-18 18:22 上传

点击文件名下载附件


正则我懂的少，没办法只好偷懒，这么定义的品牌特征：首次出现，非中文，长度至少2个的子串。

这样可能较大误判，你再根据更多实际数据核实下。最好你给出像我上面的文字的定义。其他朋友才好想办法。

爱疯

.Pattern = "[A-z]+\(*\)*"

为什么这样就不行了呢？等学习好了

CheryBTL

借用爱疯版的方法，但不会全部匹配：

1. Sub Test()
   
2.      Dim A, i, str, re, match, matches
   
3.      A = Range("A1:C" & Range("B65536").End(xlUp).Row)
   
4.      ReDim re(1 To UBound(A) - 1, 1 To 1)
   
5.      With CreateObject("VBScript.RegExp")
   
6.          .Pattern = "[A-z]"
   
7.          .Global = True
   
8.          For i = 2 To UBound(A)
   
9.             str = Mid(A(i, 2), 2, 999)
   
10.             Set matches = .Execute(str)
    
11.              For Each match In matches
    
12.                 str = Replace(str, match, "")
    
13.              Next
    
14.              re(i - 1, 1) = Replace(Replace(Left(A(i, 2), 1) & str, "(", ""), ")", "")
    
15.          Next i
    
16.      End With
    
17.      [c2].Resize(UBound(re)) = re
    
18. End Sub
    

复制代码

hwc2ycy

爱疯 发表于 2013-11-18 19:40
.Pattern = "[A-z]+\(*\)*"

为什么这样就不行了呢？等学习好了

[A-z]+(\(\w+\))*