Как переставить текст в ячейке в Excel?

Предположим, у вас есть электронная таблица с длинным списком имен, который имеет формат «Фамилия Имя», и теперь вам нужно переставить все имена в «Имя, Фамилия». Как этого добиться? В этой статье будут представлены три метода, которые помогут вам решить проблему.

Изменить порядок текста в ячейке с формулой
Изменить порядок текста в ячейке с кодом VBA
Быстро переставьте текст в ячейке с помощью Kutools for Excel

Изменить порядок текста в ячейке с формулой

Приведенная ниже формула поможет вам перевернуть фамилию и имя в ячейке Excel. Пожалуйста, сделайте следующее.

1. Выберите пустую ячейку для вывода измененного текста, введите в нее приведенную ниже формулу и нажмите клавишу Enter.

= ОБРЕЗАТЬ (СРЕДНЕЕ (b2; ПОИСК ("", b2) +1,250)) & "" & ВЛЕВО (b2, ПОИСК ("", b2) -1)

Внимание: в формуле B2 - это ячейка, содержащая имя, которое вы измените. Пожалуйста, измените его в зависимости от ваших потребностей.

2. Продолжайте выбирать ячейку результата, перетащите маркер заполнения вниз, чтобы перевернуть все имена, как показано на скриншоте ниже.

Изменить порядок текста в ячейке с кодом VBA

Кроме того, вы можете применить приведенный ниже код VBA, чтобы сразу перевернуть все имена в списке в Excel. Пожалуйста, сделайте следующее.

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль. Затем скопируйте ниже код VAB в окно модуля.

Код VBA: изменить порядок текста в ячейке

Sub RearrangeText() 
'Updated by Extendoffice 20180503
Dim xRg As Range, yRg As Range 
Dim LastRow As Long, i As Long 
Dim strTxt As String, strFs As String 
Dim strLs As String, N As Integer 
On Error Resume Next 
Set xRg = Application.InputBox(Prompt:="Range Selection:", _ 
Title:="Kutools for excel", Type:=8) 
For Each yRg In xRg 
On Error Resume Next 
strTxt = yRg.Value 
Trim (strTxt) 
N = InStr(strTxt, " ") 
strLs = Left(strTxt, N - 1) 
strFs = Right(strTxt, Len(strTxt) - N) 
yRg.Value = strFs & " " & strLs 
Next 
End Sub

3. Затем Kutools for Excel появится диалоговое окно, выберите список имен, который вы хотите изменить, а затем щелкните значок OK кнопка. Смотрите скриншот:

Затем все «Фамилия Имя» в выбранном списке немедленно переворачиваются.

Быстро переставьте текст в ячейке с помощью Kutools for Excel

В этом разделе будут представлены Обратный порядок текста полезности Kutools for Excel чтобы помочь вам изменить порядок текста в ячейке.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите список имен, который вы перевернете, «Фамилия Имя», затем нажмите Kutools > Текст > Обратный порядок текста. Смотрите скриншот:

2. в Обратный текст в диалоговом окне выберите Space и нажмите OK кнопка. Смотрите скриншот:

Затем все имена в выбранном списке переставляются сразу.

  Если вы хотите получить 30-дневную бесплатную пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

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

• Как поменять местами день и месяц даты в Excel?
• Как поменять местами текст в одной ячейке Excel?

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
• Более 300 мощных функций. Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Больше информации... Скачать бесплатно... Покупка ... 

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...