删除最后6位数字及括号

orc250

公式见附件，但是当A列有纯数字的时候就出现了问题，请问如何解决~~~

踏雪访梅

A列有纯数字时，你需要如何处理？是保留还是清除掉？

有4地

最外面套个IFERROR，=IFERROR(IF(ISERROR(LEFT(RIGHT(A1,7),6)+1),A1,LEFT(A1,LEN(A1)-8)),"")

amzxfgh9632

查找替换且不更快？？？？？？

fyure

Sub aa()
For i = 1 To Cells(Rows.Count, 1).End(3).Row
If Right(Cells(i, 1).Value, 1) = "）" And Len(Cells(i, 1).Value) > 6 Then Cells(i, 2).Value = Mid(Cells(i, 1).Value, 1, Len(Cells(i, 1).Value) - 8)
Next
End Sub

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Pattern = "（\d{6}）(?=$)"
   
7.     Set mh = .Execute(Range("a1"))
   
8.   End With
   
9.   With Worksheets("sheet1")
   
10.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.     arr = .Range("a1:a" & r)
    
12.     ReDim brr(1 To UBound(arr), 1 To 1)
    
13.     For i = 1 To UBound(arr)
    
14.       brr(i, 1) = reg.Replace(arr(i, 1), "")
    
15.     Next
    
16.     .Range("b1").Resize(UBound(brr), 1) = brr
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

楼主既然发到这个版块了，就写个代码的。

hcm19522

=IF(ISERROR(LEFT(RIGHT(A1,7),6)+1),A1,LEFT(A1,LEN(A1)-8*ISERR(-A1)))

orc250

chxw68 发表于 2018-3-28 09:44
楼主既然发到这个版块了，就写个代码的。

使用VBA的话，运行起来会比较慢，不如公式代入的快。

chxw68

orc250 发表于 2018-3-28 17:06
使用VBA的话，运行起来会比较慢，不如公式代入的快。

那你就用公式吧，我是借题练练正则。