Как преобразовать возврат каретки в запятую в Excel?
Возможно, у вас много ячеек, значения которых разделены символами возврата каретки, и теперь вам нужно найти все символы возврата каретки и заменить их запятыми или другими символами, как показано на следующем снимке экрана. Как можно быстро и легко преобразовать все символы возврата каретки в запятые или другие символы на листе?
Преобразование возврата каретки в запятую с помощью формулы
Преобразование возврата каретки в запятую с помощью функции поиска и замены
Преобразование возврата каретки в запятую с кодом VBA
- Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
- Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
- Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
- Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
- Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
- Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
- Более 300 мощных функций; Работает с Office 2007-2021 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.
Преобразование возврата каретки в запятую с помощью формулы
Следующая простая формула может помочь вам с легкостью заменить символы возврата каретки на запятые или другие символы.
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?
Как разбить ячейки на несколько столбцов или строк с помощью возврата каретки?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
