把文字前面的序号去掉

一执成念

正则最好，参考 [\u4e00-\u9fff]+\S*

ykcbf1100

凑个热闹，正则

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.13
   
2.     Set reg = CreateObject("VBScript.Regexp")
   
3.     With reg
   
4.         .Pattern = "[一-龢].*"
   
5.         .Global = True
   
6.         .IgnoreCase = True
   
7.     End With
   
8.     r = Cells(Rows.Count, 2).End(3).Row
   
9.     arr = [a1].Resize(r, 3)
   
10.     For i = 2 To UBound(arr)
    
11.         s = arr(i, 2)
    
12.         Set mh = reg.Execute(s)
    
13.         arr(i, 3) = mh(0).Value
    
14.     Next
    
15.     [a1].Resize(r, 3) = arr
    
16.     MsgBox "OK！"
    
17. End Sub
    

复制代码

大灰狼1976

正则排除法，用replace，小试一手
.Pattern = "^[^\u4e00-\u9fa5]+"

renkangjizhen

用正则写一下，比较可靠。

代码简洁、靠谱

Qs18

1. Sub qs()
   
2. Dim arr, i
   
3. With Sheet1
   
4.     rw = .Cells(Rows.Count, "b").End(3).Row
   
5.     arr = .Range("b1").Resize(rw, 1)
   
6.     For i = 2 To UBound(arr)
   
7.         x = Val(arr(i, 1))
   
8.         arr(i, 1) = Trim(Mid(VBA.Replace(arr(i, 1), x, ""), 2))
   
9.     Next
   
10.     .Range("c1").Resize(rw, 1) = arr
    
11. End With
    
12. End Sub

复制代码

Qs18

试试。。。。。。。。。

Qs18

试试。。。。。

quqiyuan

wang-way

一执成念 发表于 2024-9-13 16:36
正则最好，参考 [%u4e00-%u9fff]+\S*

你这个页面做得好看