判断一列文本第一个字符和最后一个字符是否为标点符号

喝酒的毛毛虫

判断C列文本第一个字符是否为标点符号（如，、；。这四个符号）如果是标点符号则删除该符号即可。

判断C列文本最后一个字符是否为标点符号（如。？！……这四个符号）如果不是标点符号则自动添加句号即可。
VBA代码应该如何实现呢？请高手帮忙，非常感谢！

增删符号问题.rar (9.1 KB, 下载次数: 7)

2023-2-7 10:28 上传

点击文件名下载附件

3190496160

上传你的附件，具体描述你的需求，也许就会有解决的办法，没有附件，肯定是没有办法的

喝酒的毛毛虫

3190496160 发表于 2023-2-7 10:24
上传你的附件，具体描述你的需求，也许就会有解决的办法，没有附件，肯定是没有办法的

附件已上传，感谢提醒

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 3).End(xlUp).Row
   
6.         arr = .Range("c1:c" & r)
   
7.         For i = 1 To UBound(arr)
   
8.             If arr(i, 1) Like "[，、；。]*" Then
   
9.                 arr(i, 1) = Mid(arr(i, 1), 2)
   
10.             End If
    
11.             If Not arr(i, 1) Like "*[。？！……]" Then
    
12.                 arr(i, 1) = arr(i, 1) & "。"
    
13.             End If
    
14.         Next
    
15.         .Range("d1").Resize(UBound(arr), 1) = arr
    
16.     End With
    
17. End Sub
    

复制代码

chxw68

详见附件。

shiruiqiang

grf1973

1. Sub test()
   
2.     arr = Range("c1:c" & [c65536].End(3).Row)
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "[\u4e00-\u9fa5]"
   
5.         For i = 1 To UBound(arr)
   
6.             t = arr(i, 1)
   
7.             If Not .test(Left(t, 1)) Then t = Mid(t, 2)
   
8.             If .test(Right(t, 1)) Then t = t & "。"
   
9.             arr(i, 1) = t
   
10.         Next
    
11.     End With
    
12.     [d1].Resize(UBound(arr)) = arr
    
13. End Sub

复制代码