Как переставить текст в ячейке в Excel?
Предположим, у вас есть электронная таблица с длинным списком имен, который имеет формат «Фамилия Имя», и теперь вам нужно переставить все имена в «Имя, Фамилия». Как этого добиться? В этой статье будут представлены три метода, которые помогут вам решить проблему.
Изменить порядок текста в ячейке с формулой
Изменить порядок текста в ячейке с кодом VBA
Быстро переставьте текст в ячейке с помощью Kutools for Excel
Изменить порядок текста в ячейке с формулой
Приведенная ниже формула поможет вам перевернуть фамилию и имя в ячейке Excel. Пожалуйста, сделайте следующее.
1. Выберите пустую ячейку для вывода измененного текста, введите в нее приведенную ниже формулу и нажмите клавишу Enter.
= ОБРЕЗАТЬ (СРЕДНЕЕ (b2; ПОИСК ("", b2) +1,250)) & "" & ВЛЕВО (b2, ПОИСК ("", b2) -1)
Внимание: в формуле B2 - это ячейка, содержащая имя, которое вы измените. Пожалуйста, измените его в зависимости от ваших потребностей.
2. Продолжайте выбирать ячейку результата, перетащите маркер заполнения вниз, чтобы перевернуть все имена, как показано на скриншоте ниже.
Легко переупорядочивайте текст в ячейке в Excel:
Ассоциация Обратный текст полезности Kutools for Excel может помочь вам легко поменять местами текст в одной ячейке с помощью определенного разделителя в Excel. См. Снимок экрана ниже:
Скачайте и попробуйте! (30-дневная бесплатная подписка)
Изменить порядок текста в ячейке с кодом 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. Выберите список имен, который вы перевернете, «Фамилия Имя», затем нажмите Кутулс > Текст > Обратный порядок текста. Смотрите скриншот:
2. в Обратный текст в диалоговом окне выберите Space и нажмите OK кнопка. Смотрите скриншот:
Затем все имена в выбранном списке переставляются сразу.
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Статьи по теме:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!