VB宏程序實現換行追加符號

關於

有這樣一個場景，有一次，公司一個同事說，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 //MsgBox resultStr End If Next i cacheStr = Mid(StaR, lastI + 1, Len(StaR) - lastI) resultStr = resultStr + cacheStr c.Value = resultStr Next End Sub 複製代碼

2.補充幾點 經常使用快捷鍵： Alt+Entry：換行 Alt+F11：打開程序窗口 F5：打開運行宏窗口

函數： Mid(String,start[,Length]) String - 必需的參數。輸入從中返回指定數量的字符的字符串。 Start - 必需的參數。 一個整數，它指定了字符串的起始位置。 Length - 必需的參數。 一個整數，指定要返回的字符數。 注意：Start須要從1開始。