Как изменить или переставить текст внутри ячейки в Excel?
Во многих случаях возникает необходимость поменять местами части текста в одной ячейке для достижения определённых целей. Например, в ячейке указано имя «Smith John», а вам нужно преобразовать его в «John Smith». В этой статье описаны несколько эффективных способов решения такой задачи.
Поменять или переставить текст внутри одной ячейки с помощью формулы
Поменять или переставить текст внутри одной ячейки с помощью кода VBA
Легко поменять или переставить текст внутри одной ячейки с помощью Kutools для Excel>
Поменять или переставить текст внутри одной ячейки с помощью формулы
Приведённая ниже формула поможет вам поменять местами части текста внутри одной ячейки в Excel. Выполните следующие действия.
1. Выберите пустую ячейку для размещения изменённых данных, введите формулу в строку формул и нажмите клавишу Enter. См. снимок экрана:
=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & " " & LEFT(A2,FIND(" ",A2)-1)
2. Выделите ячейку с результатом, затем перетащите маркер заполнения вниз, чтобы быстро получить остальные результаты, как показано на снимке экрана ниже.
Теперь вы увидите, что имя и фамилия поменялись местами в указанных ячейках.
Примечание: Этот метод позволяет поменять местами только два фрагмента текста внутри одной ячейки, разделённые пробелом.
Легко меняйте или переставляйте текст внутри одной ячейки в Excel:
Утилита Перевернуть текст из Kutools для Excel поможет вам легко поменять местами части текста внутри одной ячейки по указанному разделителю в Excel — как показано на демонстрации ниже.
Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная пробная версия)
Поменять или переставить текст внутри одной ячейки с помощью кода VBA
Как показано в приведённом выше примере, вы также можете использовать следующий сценарий VBA, чтобы изменить или переставить текст внутри одной ячейки.
1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код VBA в окно модуля.
Код VBA: Поменять или переставить текст внутри одной ячейки
Sub res()
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 Sub3. Нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне Kutools для Excel выберите диапазон с данными, которые необходимо поменять местами, и нажмите кнопку ОК. См. снимок экрана:
Теперь вы увидите, что текст в указанных ячейках с именами немедленно поменялся местами.
Примечание: Этот код также корректно меняет местами два слова в одной ячейке, разделённые пробелом.
Легко поменять или переставить текст внутри одной ячейки с помощью Kutools для Excel
В этом разделе рекомендуется воспользоваться утилитой «Изменить порядок символов» из Kutools для Excel, чтобы быстро и легко справиться с этой задачей. Выполните следующие действия.
1. Выделите диапазон с текстом, порядок которого нужно изменить, затем нажмите Kutools > Текст > Изменить порядок символов. См. снимок экрана:
2. В диалоговом окне Перевернуть текст укажите разделитель, на основе которого будут меняться местами фрагменты текста, в разделе Разделитель. В данном случае выбрана опция Пробел. Затем нажмите кнопку ОК.
Теперь вы увидите, как данные в выбранных ячейках немедленно поменяются местами внутри этих же ячеек согласно указанному разделителю.
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
См. также статью:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек