如何用VBA批量删除A列中的阿拉伯数字及后面的字符

hjd528

求老师们帮个忙：
1. 如何用VBA批量删除A列中的阿拉伯数字及后面的字符，保留的结果放在C列。
2. 需实现的结果如C列所示。

示例.rar (8.15 KB, 下载次数: 6)

2024-8-4 22:04 上传

点击文件名下载附件

quqiyuan

正则提取了下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Set reg = CreateObject("vbscript.regexp")
    arr = Range([a1], Cells(Rows.Count, 1).End(3))
    ReDim brr(1 To 10000, 1 To 1)
    For i = 2 To UBound(arr)
        With reg
            .Pattern = "(.+?)\d+"
            .Global = True
            If .test(arr(i, 1)) Then
                Set s = .Execute(arr(i, 1))
            End If
        End With
        n = n + 1
        brr(n, 1) = s(0).submatches(0)
    Next
    [c1].CurrentRegion.Offset(1).ClearContents
    [c2].Resize(n) = brr
    Beep
End Sub

jiangxiaoyun

jiangxiaoyun

hjd528

quqiyuan 发表于 2024-8-4 22:14
正则提取了下，仅供参考。。。

谢谢老师！如果A列中没有阿拉伯数字时，则保留原数据，如何修改代码。
示例0805.rar (16.29 KB, 下载次数: 3)

2024-8-5 07:22 上传

点击文件名下载附件

hjd528

jiangxiaoyun 发表于 2024-8-4 22:54

感谢回复！我的电脑为啥没有这个函数？

gwjkkkkk

B2=

1. =LEFT(A2,MIN(IFERROR(FIND({1,2,3,4,5,6,7,8,9,0},A2),10^3)-1))

复制代码

数组三键

ykcbf1100

用正則刪除。

ykcbf1100

參與一下。。。

1. Sub ykcbf()   '//2024.8.5   删除A列中的阿拉伯数字及后面的字符
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     With reg
   
5.         .Pattern = "\d.*"
   
6.         .Global = True
   
7.         .IgnoreCase = True
   
8.     End With
   
9.     For i = 2 To r
   
10.         st = Cells(i, 1)
    
11.         Set mh = reg.Execute(st)
    
12.         If mh.Count > 0 Then
    
13.             Cells(i, 3) = reg.Replace(st, "")
    
14.         End If
    
15.     Next
    
16.     MsgBox "OK！"
    
17. End Sub
    

复制代码