用文言一心写VBA代码,实现WPS清除前后空字符

查看 56|回复 4
作者:树洞先生   
工作中用EXCEL会比较多点,但是也眼馋WPS的有些功能,对VBA也算会用吧,想着用文言一心来折腾折腾,感觉还不错。
用了40万条数据测试下来2.2秒左右。估计还是要看电脑配置吧。
上一波对话图:


文言_001.png (510.74 KB, 下载次数: 0)
下载附件
2024-6-24 18:50 上传



文言_002.png (457.87 KB, 下载次数: 0)
下载附件
2024-6-24 18:50 上传



文言_003.png (470.95 KB, 下载次数: 0)
下载附件
2024-6-24 18:50 上传



文言_004.png (458.95 KB, 下载次数: 0)
下载附件
2024-6-24 18:51 上传



文言_005.png (509.56 KB, 下载次数: 0)
下载附件
2024-6-24 18:51 上传



文言_006.png (678.49 KB, 下载次数: 0)
下载附件
2024-6-24 18:51 上传



文言_007.png (502.79 KB, 下载次数: 0)
下载附件
2024-6-24 18:51 上传



文言_008.png (543.98 KB, 下载次数: 0)
下载附件
2024-6-24 18:51 上传

最后上测试过的代码,以及更改了一行位置,将单元格设置为文本这行的位置。权当看看 ,但是真能跑。
[Asm] 纯文本查看 复制代码Private regex As Object ' 静态的正则表达式对象
Private Sub InitializeRegex() ' 初始化正则表达式对象
If regex Is Nothing Then
Set regex = CreateObject("VBScript.RegExp")
regex.Global = True
End If
End Sub
Function CleanStringWithRegex(ByVal inputString As String) As String
InitializeRegex ' 确保 regex 已创建
regex.Pattern = "\s+|^ | $" ' 合并两个替换操作的正则表达式
CleanStringWithRegex = regex.Replace(inputString, " ")
End Function
' ... 其他代码保持不变,但在调用 CleanStringWithRegex 之前确保 InitializeRegex 已被调用 ...
Sub CleanAndFormatAsText_RegexArray()
Dim rng As Range
Dim cellValues() As Variant
Dim outputValues() As Variant
Dim i As Long, j As Long, rowCount As Long, colCount As Long
Dim startTime As Double
startTime = Timer
' 确保用户已经选定了要处理的单元格范围
If TypeName(Selection)  "Range" Then
MsgBox "请先选择一个单元格范围。", vbExclamation, "未选择范围"
Exit Sub
End If
' 将选定范围赋值给rng变量,并获取其尺寸
Set rng = Selection
rowCount = rng.Rows.Count
colCount = rng.Columns.Count
' 读取数据到数组中
cellValues = rng.Value2
rng.NumberFormat = "@"
' 为输出值创建同样大小的数组
ReDim outputValues(1 To rowCount, 1 To colCount)
' 关闭屏幕更新和计算,以提高性能
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' 在数组中处理数据
For i = 1 To rowCount
For j = 1 To colCount
If Not IsEmpty(cellValues(i, j)) Then
outputValues(i, j) = CleanStringWithRegex(CStr(cellValues(i, j)))
Else
outputValues(i, j) = ""
End If
Next j
Next i
' 将处理后的数据写回Excel
rng.Value2 = outputValues
' 设置单元格格式为文本
'rng.NumberFormat = "@"
' 恢复屏幕更新和计算
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
' 显示处理完成消息和所用时间
MsgBox "选定范围内的异常字符已被清理,操作完成。" & vbCrLf & _
"所用时间: " & FormatNumber(Timer - startTime, 2) & " 秒", vbInformation, "处理完成"
End Sub

文言, 下载次数

akinet   

文言一心  多少钱一个月?
树洞先生
OP
  


akinet 发表于 2024-6-24 19:04
文言一心  多少钱一个月?

没有开vip哦  我也不知道  
ThemanRonin   


akinet 发表于 2024-6-24 19:04
文言一心  多少钱一个月?
3.5免费。文心一言4.0会员要 50 块钱一个月
ysjd22   

其实就一个正则的事
您需要登录后才可以回帖 登录 | 立即注册

返回顶部