如何将B列文字中每一大点的最后符号改成句号

grf1973

如果出现1、aaaaaa；2、bbbbbb；3、ccccccc；
判断大点就是.\d+、

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.1
   
2.     r = Me.Cells(Rows.Count, 2).End(3).Row
   
3.     arr = Me.Range("b1:b" & r)
   
4.     ReDim brr(1 To UBound(arr), 0)
   
5.     For i = 1 To UBound(arr)
   
6.         m = m + 1
   
7.         b = Split(Trim(arr(i, 1)), Chr(10))
   
8.         st = ""
   
9.         For x = 0 To UBound(b)
   
10.             s = Trim(b(x))
    
11.             If s <> Empty Then
    
12.                 st = st & Chr(10) & Replace(s, Right(s, 1), "。")
    
13.             End If
    
14.         Next
    
15.        brr(m, 0) = st
    
16.     Next
    
17.     Me.Columns("h:h") = ""
    
18.     Me.[h1].Resize(m) = brr
    
19. End Sub
    

复制代码