vba判断B行文本末尾是否带符号

喝酒的毛毛虫

vba判断B行文本末尾是否带符号（叹号、句号、问号），如果没有符号则添加加句号，如何实现呢？

shiruiqiang

是否可以判断right（单元格，1）like [1-9]或者[一-龢]，是的话加句号？

ykcbf1100

你可以参考一下。

ykcbf1100

参考代码如下：

1. Sub yyy()  '//2023.2.6
   
2.     Dim arr, brr, b
   
3.     r = Cells(Rows.Count, "b").End(xlUp).row
   
4.     arr = Range("b2:b" & r)
   
5.     b = [{"？","。","！"}]
   
6.     For i = 2 To UBound(arr)
   
7.         s = arr(i, 1)
   
8.         ss = Mid(s, Len(s) - 1)
   
9.         For x = 1 To UBound(b)
   
10.             If InStr(Right(s, 1), b(x)) = 0 Then
    
11.                 arr(i, 1) = ss & "。"
    
12.                 Exit For
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     Range("b2:b" & r) = arr
    
17. End Sub
    

复制代码

limonet

半角还是全角？

tanglf188

以B1 为例：
s = "!.?！。？"
If InStr(s, Right([B1], 1)) = 0 And [B1]<>"" Then [B1] = [B1] & "。"