Найти и заменить косые черты новым linfeed в Excel 2010

Question

Может кто-нибудь сказать мне, как заменить косую черту (/) с переводом строки в Excel 2010? У меня есть очень длинный лист со словами, происхождением и определениями. В столбце происхождения некоторые строки показывают несколько мест, разделенных косой чертой. Я хочу, чтобы каждый элемент в ячейке находился на новой строке внутри ячейки. Это возможно?

Прямо сейчас клетка выглядит так

Римский / кельтский / балтийский

Я хочу, чтобы клетка выглядела так

Римский
кельтский
балтийский

Answer 1

• выберите ваши клетки
• щелкните правой кнопкой мыши, Format Cell s ... перейдите на вкладку Выравнивание и выберите Wrap Text (Рис. 1).
• нажмите Ctrl F вместе
• перейти на вкладку " Заменить"
• под Find What введите "/"
• Перейти к Replace With затем нажмите Alt 0010
• Replace All (рис. 2)

Рис 1

Рис 2

Answer 2

В качестве другого варианта, вот некоторый код VBA для создания новой функции, которая будет преобразовывать / в LF:

Public Function SlashToLF(oldstring As String) As String
    Dim newString As String
    Dim c As Long

    For c = 1 To Len(oldstring)
        If Mid(oldstring, c, 1) = "/" Then
            newString = newString & vbNewLine
        Else
            newString = newString & Mid(oldstring, c, 1)
        End If
    Next
    slashtolf = newString

End Function

Если вы поместите формулу =SlashToLF(A1) в другую ячейку, вы получите новую версию с переводами строки. Затем вы можете скопировать / вставить как значения поверх оригинала, если хотите. Кроме того, вам нужно отформатировать ячейку как Wrap Text, чтобы она работала.