VB宏程序实现换行追加符号

最新推荐文章于 2024-01-28 22:59:13 发布

技术群主

最新推荐文章于 2024-01-28 22:59:13 发布

阅读量493

点赞数

文章标签： excel

本文链接：https://blog.csdn.net/huang_wei_cai/article/details/100977292

版权

本文介绍如何使用VB宏在Excel中实现每行换行处追加"\"符号，以便于在导入Jira系统时，系统能识别换行，提高阅读体验。提供完整VB宏代码，并分享了相关快捷键操作。

摘要由CSDN通过智能技术生成

关于

有这样一个场景，有一次，公司一个同事说，excel表格中，想在每行换行的地方追加"\\"符号，以便该excel表格在导入jira系统的时候，该符号会被系统识别为换行符，方便阅读。于是乎有了下面的研究成果。

完整的vb宏程序

1.打开vb宏编辑窗口，可使用快捷键Alt+F11打开，然后粘贴下面程序。下面的代码可以实现，在你选择的区域，运行宏，则该区域上，凡是换行符的位置都会追加上"\\"符号。

Sub AppendToSpritOnEnterRight()
Dim c As Range
Dim StaR As String
Dim posStr As String
Dim i As Long
Dim resultStr, cacheStr As String
Dim lastI As Long

For Each c In Selection
    StaR = c.Value
    
    posStr = ""
    cacheStr = ""
    resultStr = ""
    lastI = 0
    
    For i = 1 To Len(StaR)
        posStr = Mid(StaR, i, 1)
        If posStr = Chr(10) Then '拼接字符串\\
            cacheStr = Mid(StaR, lastI + 1, i - 1 - lastI) & "\\" & Chr(10)
            resultStr = resultStr + cacheStr
            lastI = i
            //MsgB