这段程序不能删除标点符号，哪里错了？

qlmgu

请教各位老师：下面这段程序用来删除C列文本中的标点符号，但是无效，哪里错了呢？学习中。谢谢各位。


I删除文本标点符号.rar (38.6 KB, 下载次数: 9)

2023-3-1 09:01 上传

点击文件名下载附件

全党

1. Sub a()
   
2. Dim 正则
   
3. Set 正则 = CreateObject("vbscript.regexp")
   
4. 正则.Pattern = "[^一-龥]"
   
5. 正则.Global = True
   
6. 
   
7. For Each 单元格 In Range([c2], Cells(Rows.Count, 3).End(xlUp))
   
8.     字符串 = Trim(单元格.Value)
   
9.     单元格.Offset(0, 1).Value = 正则.Replace(字符串, "")
   
10. Next
    
11. 
    
12. Set 正则 = Nothing
    
13. Set 结果集合 = Nothing
    
14. End Sub
    

复制代码

qlmgu

全党 发表于 2023-3-1 09:17

感谢全党老师。您的程序很好，而且用中文表示，学习了。但是我想知道示范文件里的程序哪里错了，知道错误在哪里。谢谢您

全党

qlmgu 发表于 2023-3-1 09:45
感谢全党老师。您的程序很好，而且用中文表示，学习了。但是我想知道示范文件里的程序哪里错了，知道错误 ...

strPattern是一个字符串，replace按照一个整体去判断，没有匹配的也就不会替换空

qlmgu

全党 发表于 2023-3-1 09:57
strPattern是一个字符串，replace按照一个整体去判断，没有匹配的也就不会替换空

谢谢老师启蒙。应该如何修改呢？

全党

qlmgu 发表于 2023-3-1 09:59
谢谢老师启蒙。应该如何修改呢？

可以这样改，但是没有实际意义
Sub 拷贝和删除标点()
    Dim i As Integer
    Dim strPattern As String
    strPattern = "，,。,？,！"
    arr = Split(strPattern, ",")
    For i = 1 To 500
        Cells(i, 3) = Cells(i, 2)
        For Each a In arr
        Cells(i, 3).Value = Replace(Cells(i, 3).Value, a, "")
        Next
    Next
End Sub

qlmgu

全党 发表于 2023-3-1 10:13
可以这样改，但是没有实际意义
Sub 拷贝和删除标点()
    Dim i As Integer

原来如此。再次感谢指教。您修改后的程序可以删除标点了。学习了。

半百

qlmgu

半百 发表于 2023-3-1 11:39

感谢半百老师指教，我的小花不够了，只能送一朵，表达我感谢的心情。