Как преобразовать возврат каретки в запятую в 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?
Как разбить ячейки на несколько столбцов или строк с помощью возврата каретки?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
