这个程序怎么做？

mymotoe6

在一篇中英文文件中如何利用VBA编写一个程序 1.删除中文和标点符号，只保留英文。2.删除英文和标点符号，只保留中文。

约定的童话

VBA替换为空

excel玉米

这种情况一般用正则表达式

ykcbf1100

只保留英文，正则

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.12.15
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Columns(6) = ""
   
4.     arr = [a1].Resize(r, 6).Value
   
5.     On Error Resume Next
   
6.     For i = 1 To UBound(arr)
   
7.         st = arr(i, 1)
   
8.         arr(i, 6) = Split(ston(st), "/")(0)
   
9.     Next
   
10.     [a1].Resize(r, 6).Value = arr
    
11. End Sub
    
12. 
    
13. Function ston(str) As String
    
14.     Dim reg As Object
    
15.     Set reg = CreateObject("VBScript.RegExp")
    
16.     With reg
    
17.         .Pattern = "[一-龢.；……\(\)]+"
    
18.         .Global = True
    
19.         .IgnoreCase = True
    
20.     End With
    
21.     ston = reg.Replace(str, "")
    
22.     Set reg = Nothing
    
23. End Function
    

复制代码

excel玉米

在ykcbf1100老师基础上延伸出来如下代码：


见附件。