Классический ASP Удалить разрывы строк Excel

Question

Попытка заменить разрывы строк, которые Excel вставляет между предложениями в ячейке при преобразовании в CSV с разделителями табуляцией. Пробовали различные методы chr(10), chr(13), vbcrlf, vblf, \n и т. Д.

Это большая проблема, так как мой массив ломается.

Код:

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

В основном пытались заменить с загрузкой различных методов.

Answer 1

Это удалит все разрывы строк до, после и между ними.Выберите свою ячейку или диапазон ячеек, затем запустите марко.Если вы хотите заменить до и после, но оставьте только один разрыв строки между строками, но не оставляйте пустых строк.У меня есть один, который может это сделать.

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