Question

尝试在转换为制表符分隔的csv时替换单元格中句子之间的换行符。尝试了各种不同的方法chr(10)，chr(13)，vbcrlf，vblf，\n等。

这是一个很大的问题，因为它导致我的阵列中断。

代码：

response.write replace(replace(sLine,vbtab,""),CHR(),"|||")

基本上尝试用不同方法的载荷替换。

Answer 1

这将删除之前，之后和之间的所有换行符。选择您的细胞或细胞范围，然后运行marco。如果您要替换之前和之后但在行之间只留下一个换行但没有空行。我有一个可以做到这一点。

Sub RemoveLineBreaks()
    Application.ScreenUpdating = False
    Dim rngCell As Range
    Dim strOldVal As String
    Dim strNewVal As String

    For Each rngCell In Selection
        If rngCell.HasFormula = False Then
            strOldVal = rngCell.Value
            strNewVal = strOldVal
            Debug.Print rngCel.Address

            Do

            strNewVal = Replace(strNewVal, vbLf, " ")

            If strNewVal = strOldVal Then Exit Do
                strOldVal = strNewVal
            Loop

            If rngCell.Value <> strNewVal Then
                rngCell = strNewVal
            End If
        End If
        rngCell.Value = Application.Trim(rngCell.Value)
    Next rngCell
    Application.ScreenUpdating = True
End Sub

经典ASP删除Excel换行符

1 个答案: