vba查找指定字符后面第一个空格前插入换行符

weixiuyan

用vba查找字符”◎“后面第一个空格前插入换行符，怎么实现，哪位大佬帮忙看看谢谢
用vba查找字符”◎“后面第一个空格前插入换行符，怎么实现，哪位大佬帮忙看看谢谢

tanglf188

请参考。。。。。。。

xjl565135022

按你的条件，第一个圈圈后面的配张氏也有空格呀，但是你想要的结果里面也没有插入回车，是你的数据不规范还是你的要求的结果不规范

weixiuyan

xjl565135022 发表于 2024-5-10 16:27
按你的条件，第一个圈圈后面的配张氏也有空格呀，但是你想要的结果里面也没有插入回车，是你的数据不规范还 ...

老师这种情况可插入也可不插入

liulang0808

Sub test()
    arr = Range("A1").CurrentRegion
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "(◎[一-龥]+) "
        For j = 3 To UBound(arr)
            If .test(arr(j, 1)) Then
                arr(j, 1) = .Replace(arr(j, 1), "$1" & Chr(10) & " ")
            End If
        Next j
    End With
    [i1].Resize(UBound(arr), 1) = arr
End Sub

liulang0808

供参考。。。。。。

weixiuyan

liulang0808 发表于 2024-5-10 16:50
供参考。。。。。。

查找字符”◎“后面第一个空格前插入换行符，如果第一个空格后无内容不插入换行符，可以实现吗

cidanji

liulang0808

供参考

weixiuyan

liulang0808 发表于 2024-5-10 17:08
供参考

谢谢，学习中