把商品后面中文及加减号去掉

kangyuli

把商品后面中文及加减号去掉

正弋老兵

b2=IF(OR(RIGHT(LEFT(A2,LEN(A2)-1))="-",RIGHT(LEFT(A2,LEN(A2)-1))="＋"),LEFT(A2,LEN(A2)-2),LEFT(A2,LEN(A2)-1))    下拉
   你的 "+"   不是一般的 + 号  ..........

jie-jie

楼主的举例感觉标准不一致：如
HTC-9199(豪华版)棕
诺基亚-8208（电信3G）黑

kangyuli

HTC-9199(豪华版)
HTC-9199(精装版)
(豪华版)、(精装版)没有去掉。还是谢谢你

honggexjq

不明白为什么
LG-C300（白灰色）的括号要去除
而
HTC-9199(豪华版)棕的括号要保留

先试做下，改的话也方便

1. Sub test()
   
2. Dim darr, rarr() As String
   
3. Dim regex As Object, i&
   
4. Set regex = CreateObject("VBScript.RegExp")
   
5. darr = Range("a1").CurrentRegion
   
6. ReDim rarr(1 To UBound(darr), 1 To 1)
   
7. With regex
   
8.     .Global = True
   
9.     .Pattern = "(?:[-＋\u4e00-\u9fa5]|([(（])|([）)]))+$"
   
10.     For i = 2 To UBound(darr)
    
11.         rarr(i, 1) = .Replace(darr(i, 1), "$1$2")
    
12.     Next
    
13. End With
    
14. [b1].Resize(UBound(rarr)) = rarr
    
15. End Sub
    

复制代码

kangyuli

谢谢我的符合要求，高手谢谢你，

kangyuli

能否把HTC-9199后(豪华版)棕后面括号()、LG-C300后面的括号（）去除
HTC-9199(豪华版)棕        HTC-9199
HTC-9199(精装版)黑        HTC-9199

kangyuli

能否把HTC-9199后(豪华版)棕后面括号()、LG-C300后面的括号（）去除
HTC-9199(豪华版)棕        HTC-9199
HTC-9199(精装版)黑        HTC-9199
韩国LG-C320白              韩国LG-C320

honggexjq

1. Sub test()
   
2. Dim darr, rarr() As String
   
3. Dim regex As Object, i&
   
4. Set regex = CreateObject("VBScript.RegExp")
   
5. darr = Range("a1").CurrentRegion
   
6. ReDim rarr(1 To UBound(darr), 1 To 1)
   
7. With regex
   
8.     .Global = True
   
9.     .Pattern = "[-＋\u4e00-\u9fa5]*(?:[(（][-＋\u4e00-\u9fa5]+[）)])*[-＋\u4e00-\u9fa5]*$"
   
10.     For i = 2 To UBound(darr)
    
11.         rarr(i, 1) = .Replace(darr(i, 1), "")
    
12.     Next
    
13. End With
    
14. [b1].Resize(UBound(rarr)) = rarr
    
15. End Sub

复制代码

XYZ1117

太难了
偶笨，学不会