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