Как преобразовать возврат каретки в запятую в Excel?

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

Преобразование возврата каретки в запятую с помощью формулы

Преобразование возврата каретки в запятую с помощью функции поиска и замены

Преобразование возврата каретки в запятую с кодом VBA

Преобразование возврата каретки в запятую с помощью формулы

Следующая простая формула может помочь вам с легкостью заменить символы возврата каретки на запятые или другие символы.

1. Введите эту формулу в пустую ячейку помимо ваших данных: = ПОДСТАВИТЬ (A1; СИМВОЛ (10); ";") (A1 указывает ячейку, в которой вы хотите заменить возврат каретки, а запятая между кавычками - это символ, который вы хотите использовать, вы можете изменить их по своему усмотрению.), см. снимок экрана:

2. Затем перетащите маркер заполнения в диапазон, в котором вы хотите применить эту формулу, и вы получите следующий результат: символы возврата каретки заменяются запятыми.

Преобразование возврата каретки в запятую с помощью функции поиска и замены

Функция «Найти и заменить» также может помочь вам сразу преобразовать символы возврата каретки в запятые. Пожалуйста, сделайте следующее:

1. Выберите диапазон данных, который вы хотите преобразовать в символы возврата каретки.

2. Нажмите Главная > Найти и выбрать > Замените или воспользуйтесь ярлыками Ctrl + H , чтобы открыть Найти и заменить диалоговое окно, см. снимок экрана:

3. В Найти и заменить диалоговое окно в Найти то, что поле, пожалуйста, нажмите Ctrl + J ключи, а в Заменить поле введите нужные символы, в этом случае я введу запятую (,), см. снимок экрана:

4. Затем нажмите Заменить все , и появится окно с подсказкой, чтобы напомнить вам, сколько замен было произведено. Смотрите скриншот:

5, Затем нажмите OK и закрыть Найти и заменить В диалоговом окне все символы возврата каретки заменены запятыми.

Преобразование возврата каретки в запятую с кодом VBA

Если вас интересует код VBA, я могу представить вам код для решения этой задачи.

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

Код VBA: преобразование возврата каретки в запятую

Sub ReplaceCarriage()
'Update 20141023
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = Replace(Rng.Value, Chr(10), ",")
Next
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно подсказки, напоминающее вам о выборе диапазона данных, который вы хотите использовать. Смотрите скриншот:

4. Затем нажмите OK, и символы возврата каретки были немедленно преобразованы в запятые.

Внимание:

В приведенном выше коде вы можете изменить запятую ","в пределах Rng.Value = Replace (Rng.Value, Chr (10), ",") скрипт к любым другим персонажам, как вам нравится.

Статьи по теме:

Как быстро убрать разрывы строк в Excel?

Как разбить ячейки на несколько столбцов или строк с помощью возврата каретки?