把文字前面的序号去掉

李伟杰123

编个程序，把文字前面的序号去掉


桥梁明细.rar (194.43 KB, 下载次数: 28)

2024-9-13 15:57 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
6.         arr = .Range("b1:b" & r)
   
7.         For i = 2 To UBound(arr)
   
8.             arr(i, 1) = Mid(arr(i, 1), InStr(arr(i, 1), ".") + 1)
   
9.             arr(i, 1) = Mid(arr(i, 1), InStr(arr(i, 1), "、") + 1)
   
10.         Next
    
11.         .Range("b1:b" & r) = arr
    
12.     End With
    
13. End Sub
    

复制代码

chxw68

用mid()函数截取的，有BUG。

limonet

beta公式：=REGEXEXTRACT(B2,"[一-龥].*")

chxw68

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

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr
   
4.     Dim reg As New RegExp
   
5.     With reg
   
6.         .Global = False
   
7.         .Pattern = "^\d+[\.、]\s*"
   
8.     End With
   
9.     With Worksheets("sheet1")
   
10.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
11.         arr = .Range("b1:b" & r)
    
12.         For i = 2 To UBound(arr)
    
13.             arr(i, 1) = reg.Replace(arr(i, 1), Empty)
    
14.         Next
    
15.         .Range("b1:b" & r) = arr
    
16.     End With
    
17. End Sub
    

复制代码

chxw68

用正则表达式写一个。

小凡、、、

正则替换---

松永

看这样行不行

DevilW

正则 Replace 方法删除，Trim 去除首尾空格

wang-way

正则表达式大法