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

sunshuangzhong

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, strJoin$
   
    ar = Range("B1", Cells(Rows.Count, "B").End(xlUp)).Value
    For i = 1 To UBound(ar)
        br = Split(ar(i, 1), vbLf)
        strJoin = ""
        For j = 0 To UBound(br)

            If Len(br(j)) Then
                strJoin = strJoin & vbLf & Left(br(j), Len(br(j)) - 1) & "。"
            End If
        Next j
        ar(i, 1) = Mid(strJoin, 2)
   
    Next i
   
    Columns("H").ClearContents
    [H1].Resize(UBound(ar)) = ar
    Beep
End Sub

gwjkkkkk

请参考。。。

sunshuangzhong

正是我想要的，感谢侠圣！

今铭昔

limonet

关键字：MultiLine

limonet

Sub limonet()
    Dim i%, M As Object, ms As Object
    With CreateObject("vbscript.regexp")
        .Pattern = ".$": .Global = True: .MultiLine = True
        For i = 1 To 3
           Cells(i, "B") = .Replace(Cells(i, "B"), "。")
           For Each M In .Execute(Cells(i, "B"))
                Cells(i, "B").Characters(M.firstindex + 1, 1).Font.Color = vbRed
                Cells(i, "B").Characters(M.firstindex + 1, 1).Font.Bold = True
            Next M
        Next i
    End With
End Sub

sunshuangzhong

都是高人呀！

grf1973

WPS版本。VBA的话正则pattern是一样的。

grf1973

。。。。。。。。。。。。。。。。。