用文心一言在EXCEL实现WPS清空前后空字符串VBA代码

976190982

跟论坛的文章是一类问题，可以在这下载练手文件https://www.excelhome.net/3422.html

平常比较习惯用EXCEL，但是又眼馋WPS的某些功能，心念一动 想着用用AIGC试试。试了下40w条数据，用2.2秒处理完了。但是赶紧WPS更胜一筹。

代码：

1. Private regex As Object ' 静态的正则表达式对象
   
2.   
   
3. Private Sub InitializeRegex() ' 初始化正则表达式对象
   
4.     If regex Is Nothing Then
   
5.         Set regex = CreateObject("VBScript.RegExp")
   
6.         regex.Global = True
   
7.     End If
   
8. End Sub
   
9.   
   
10. Function CleanStringWithRegex(ByVal inputString As String) As String
    
11.     InitializeRegex ' 确保 regex 已创建
    
12.     regex.Pattern = "\s+|^ | $" ' 合并两个替换操作的正则表达式
    
13.     CleanStringWithRegex = regex.Replace(inputString, "")
    
14. End Function
    
15.   
    
16. ' ... 其他代码保持不变，但在调用 CleanStringWithRegex 之前确保 InitializeRegex 已被调用 ...
    
17. 
    
18. 
    
19. Sub CleanAndFormatAsText_RegexArray()
    
20.     Dim rng As Range
    
21.     Dim cellValues() As Variant
    
22.     Dim outputValues() As Variant
    
23.     Dim i As Long, j As Long, rowCount As Long, colCount As Long
    
24.     Dim startTime As Double
    
25.       
    
26.     startTime = Timer
    
27.       
    
28.     ' 确保用户已经选定了要处理的单元格范围
    
29.     If TypeName(Selection) <> "Range" Then
    
30.         MsgBox "请先选择一个单元格范围。", vbExclamation, "未选择范围"
    
31.         Exit Sub
    
32.     End If
    
33.       
    
34.     ' 将选定范围赋值给rng变量，并获取其尺寸
    
35.     Set rng = Selection
    
36.     rowCount = rng.Rows.Count
    
37.     colCount = rng.Columns.Count
    
38.       
    
39.     ' 读取数据到数组中
    
40.     cellValues = rng.Value2
    
41.     rng.NumberFormat = "@"
    
42.       
    
43.     ' 为输出值创建同样大小的数组
    
44.     ReDim outputValues(1 To rowCount, 1 To colCount)
    
45.       
    
46.     ' 关闭屏幕更新和计算，以提高性能
    
47.     Application.ScreenUpdating = False
    
48.     Application.Calculation = xlCalculationManual
    
49.       
    
50.     ' 在数组中处理数据
    
51.     For i = 1 To rowCount
    
52.         For j = 1 To colCount
    
53.             If Not IsEmpty(cellValues(i, j)) Then
    
54.                 outputValues(i, j) = CleanStringWithRegex(CStr(cellValues(i, j)))
    
55.             Else
    
56.                 outputValues(i, j) = ""
    
57.             End If
    
58.         Next j
    
59.     Next i
    
60.       
    
61.     ' 将处理后的数据写回Excel
    
62.     rng.Value2 = outputValues
    
63.       
    
64.     ' 设置单元格格式为文本
    
65.     'rng.NumberFormat = "@"
    
66.       
    
67.     ' 恢复屏幕更新和计算
    
68.     Application.ScreenUpdating = True
    
69.     Application.Calculation = xlCalculationAutomatic
    
70.       
    
71.     ' 显示处理完成消息和所用时间
    
72.     MsgBox "选定范围内的异常字符已被清理，操作完成。" & vbCrLf & _
    
73.            "所用时间： " & FormatNumber(Timer - startTime, 2) & " 秒", vbInformation, "处理完成"
    
74. End Sub
    
75. 
    

复制代码

与文心一言的对话过程
----------------------------------------------------------------------------------------------------------------------

mhx0322

非常厉害！谢谢分享！学习一下。

jiangxiaoyun

普通常见字符clean函数就好了。能找到字符，查找替换足够了。
看不见也找不到的字符用left，right函数提取出来，code，unicode一下，基本都清洗得干干净净。
看着文心一言慢慢敲那么多代码，我都做完了。
别说40w数据2.2秒，80w数据用函数也没2.2秒。

wang-way

jiangxiaoyun 发表于 2024-6-28 10:43
普通常见字符clean函数就好了。能找到字符，查找替换足够了。
看不见也找不到的字符用left，right函数提取 ...

正解。NXXXXXXXXXXX